Changeset 42 in text-formbuilder for trunk/t

Timestamp:

12/09/04 11:33:17 (20 years ago)

Author:

peter

Message:

added a create_form exported method to "do the right thing" in simple cases
added parse_array method to parse an array of lines making up a formspec
some internal cleanup of the lines structure

File:

• trunk/t/Text-FormBuilder.t (modified) (2 diffs)

trunk/t/Text-FormBuilder.t

@@ -6 +6 @@
 # change 'tests => 1' to 'tests => last_test_to_print';
 
-use Test::More tests => 6;
+use Test::More qw(no_plan); #tests => 6;
 BEGIN { use_ok('Text::FormBuilder'); };
 
@@ -25 +25 @@
 isa_ok($p, 'Text::FormBuilder', 'new parser (from parse as class method)');
 
+
+my $simple = <<END;
+name
+email
+phone
+END
+
+my $form = $p->parse(\$simple)->form;
+# we should have three fields
+is(keys %{ $form->fields }, 3, 'correct number of fields');
+
+my $p2 = Text::FormBuilder->parse_array([qw(code title semester instructor)]);
+is(keys %{ $p2->form->fields }, 4, 'correct number of fields from parse_array');
+$p2->write;