Permalink
Browse files

More undef/undef() tests (failing)

  • Loading branch information...
1 parent 9ccc9ac commit 430e8215879479d212468770da821e7dba665f67 @tsee committed Dec 9, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 t/run/010_logical.t
View
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
-print "1..14\n";
+print "1..15\n";
print 2 == ( 1 && 2 ) ? "ok\n" : "not ok\n";
print 0 == ( 0 && 2 ) ? "ok\n" : "not ok\n";
@@ -10,6 +10,7 @@ print 2 == ( 0 || 2 ) ? "ok\n" : "not ok\n";
print 1 == ( 1 // 2 ) ? "ok\n" : "not ok\n";
print 0 == ( 0 // 2 ) ? "ok\n" : "not ok\n";
print 2 == ( undef // 2 ) ? "ok\n" : "not ok\n";
+print 3 == ( undef() // 3 ) ? "ok\n" : "not ok\n";
$a = 1;
$a &&= 2;

0 comments on commit 430e821

Please sign in to comment.