test cohérence

git-svn-id: svn://svn.mongueurs.net/act/trunk@119 67b57a05-4208-db11-a765-00306e02d86a
zag · Mar 30, 2004 · b713dc0 · b713dc0
1 parent 9aa8b2c
commit b713dc0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/t/form.t b/t/form.t
@@ -1,7 +1,7 @@
 #!perl -w
 
 use strict;
-use Test::More tests => 42;
+use Test::More tests => 50;
 
 my @tests = (
 { profile => {
@@ -112,6 +112,9 @@ for my $t (@tests) {
         if ($i->{invalid}) {
             is_deeply($f->invalid, $i->{invalid});
         }
+        else {
+            ok(!defined($i->{invalid}));
+        }
     }
 }