Changeset 9 in text-formbuilder for trunk/t


Ignore:
Timestamp:
10/12/04 12:57:46 (20 years ago)
Author:
peter
Message:

added some simple tests
worked on CGI framework script

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/t/Text-FormBuilder.t

    r1 r9  
    66# change 'tests => 1' to 'tests => last_test_to_print'; 
    77 
    8 use Test::More tests => 1; 
    9 BEGIN { use_ok('Text::FormBuilder') }; 
     8use Test::More tests => 4; 
     9BEGIN { use_ok('Text::FormBuilder'); }; 
    1010 
    1111######################### 
     
    1414# its man page ( perldoc Test::More ) for help writing this test script. 
    1515 
     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'); 
     19 
     20my $p2 = Text::FormBuilder->parse_text(''); 
     21isa_ok($p2, 'Text::FormBuilder', 'new parser (from parse_text as class method)'); 
Note: See TracChangeset for help on using the changeset viewer.