Perlito5 - more tests

fglock · Sep 23, 2012 · aa057ce · aa057ce
1 parent 5ff149c
commit aa057ce
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/t5/01-perlito/19-local.t b/t5/01-perlito/19-local.t
@@ -6,19 +6,23 @@ package X; # XXX javascript bug - we don't autovivify packages yet
 
 package main;
 
-say '1..3';
+say '1..4';
 
 $X::v = 10;
 
 if (1) {
     print "not " if $X::v != 10;
     say "ok 1";
+
     local $X::v;
+    print "not " if defined $X::v;
+    say "ok 2";
+
     $X::v = 15;
     print "not " if $X::v != 15;
-    say "ok 2";
+    say "ok 3";
 }
 
 print "not " if $X::v != 10;
-say "ok 3";
+say "ok 4";