Changeset 87 in text-formbuilder for trunk/t/Text-FormBuilder.t

Timestamp:

06/29/05 16:02:34 (19 years ago)

Author:

peichman

Message:

added !fb directive to hold FB parameters as YAML serialized values
updated and expanded the documentation

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 qw(no_plan); #tests => 6;
+use Test::More tests => 10;
 BEGIN { use_ok('Text::FormBuilder'); };
 
@@ -39 +39 @@
 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;
+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;