Changeset 25064

Timestamp:

11/27/08 12:39:36 (4 years ago)

Author:

kazuho

Message:

adjust test

Files:

• lang/perl/NanoA/trunk/t/form.t (modified) (2 diffs)

lang/perl/NanoA/trunk/t/form.t

@@ -3 +3 @@
 use utf8;
 
-use Test::More tests => 53;
+use Test::More tests => 58;
 
 use lib qw(MENTA/extlib);
@@ -79 +79 @@
 is(ref $form, 'NanoA::Form', 'post-new');
 ok($form->secure, 'secure flag');
-is(scalar @{$form->fields}, 5, '# of fields');
+is(scalar @{$form->fields}, 6, '# of fields');
 
 my $field = $form->fields->[0];