X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F21-is.t;h=2059fca2dc8baa86f4a432334276e846966bf1e5;hb=1f18a8970afb90a780a29c9839e3ffee0bc2d5ba;hp=97dc57a627de317f4278abc9f32bf6028fe7dbdc;hpb=c966261ac55fcb079dfc1bf42b1152b4bb71bd0b;p=perl%2Fmodules%2FTest-Leaner.git

diff --git a/t/21-is.t b/t/21-is.t
index 97dc57a..2059fca 100644
--- a/t/21-is.t
+++ b/t/21-is.t
@@ -5,11 +5,12 @@ use warnings;
 
 use Test::Leaner;
 
-plan tests => 7;
+plan tests => 8;
 
 is   undef, undef, 'undef is undef';
-isnt 1,     undef, 'one is not undef';
-isnt undef, 1,     'undef is not one';
+isnt 0,     undef, 'zero is not undef';
+isnt undef, 0,     'undef is not zero';
+is   0,     0,     'zero is zero';
 is   1,     1,     'one is one';
 isnt '1.0', 1,     '1.0 is not one string-wise';