Changeset 88 in text-formbuilder for trunk/t

Timestamp:

06/29/05 16:46:56 (19 years ago)

Author:

peichman

Message:

BUGFIX: stopped crosstalk of data from one object to another (references were getting shared in the parser grammar code)

File:

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

trunk/t/Text-FormBuilder.t

@@ -4 +4 @@
 #########################
 
-# change 'tests => 1' to 'tests => last_test_to_print';
-
-use Test::More tests => 10;
+use Test::More qw(no_plan); #tests => 11;
 BEGIN { use_ok('Text::FormBuilder'); };
-
-#########################
-
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
 
 my $p = Text::FormBuilder->new;
@@ -39 +32 @@
 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;
+# create some additional parsers, to make sure we aren't sharing data
+my $p2 = Text::FormBuilder->parse_text($simple);
+is(keys %{ $p2->form->fields }, 3, 'correct number of fields from parse_text');
+
+my $p3 = Text::FormBuilder->parse_array(qw(code title semester instructor));
+is(keys %{ $p3->form->fields }, 4, 'correct number of fields from parse_array');