source: text-formbuilder/trunk/t/Text-FormBuilder.t @ 25

Last change on this file since 25 was 19, checked in by peter, 20 years ago

more documentation
added automagic parse method; moved old parse($file) method to parse_file

File size: 1.0 KB
Line 
1# Before `make install' is performed this script should be runnable with
2# `make test'. After `make install' it should work as `perl Text-FormBuilder.t'
3
4#########################
5
6# change 'tests => 1' to 'tests => last_test_to_print';
7
8use Test::More tests => 6;
9BEGIN { use_ok('Text::FormBuilder'); };
10
11#########################
12
13# Insert your test code below, the Test::More module is use()ed here so read
14# its man page ( perldoc Test::More ) for help writing this test script.
15
16my $p = Text::FormBuilder->new;
17isa_ok($p, 'Text::FormBuilder', 'new parser');
18isa_ok($p->parse_text('')->build->form, 'CGI::FormBuilder',  'generated CGI::FormBuilder object (build->form)');
19isa_ok($p->parse_text('')->form,        'CGI::FormBuilder',  'generated CGI::FormBuilder object (form)');
20
21$p = Text::FormBuilder->parse_text('');
22isa_ok($p, 'Text::FormBuilder', 'new parser (from parse_text as class method)');
23
24$p = Text::FormBuilder->parse(\'');
25isa_ok($p, 'Text::FormBuilder', 'new parser (from parse as class method)');
26
Note: See TracBrowser for help on using the repository browser.