; was RE: [PATCH perlio.c pp.c regcomp.c] silence format and comparison warnings

[p5sagit/p5-mst-13.2.git] / t / base / lex.t

diff --git a/t/base/lex.t b/t/base/lex.t
index 54d6c93..984cdff 100755 (executable)
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..54\n";
+print "1..55\n";
 
 $x = 'x';
 
@@ -53,8 +53,8 @@ $foo
 EOF
 EOE
 
-print <<`EOS` . <<\EOF;
-echo ok 12
+print <<'EOS' . <<\EOF;
+ok 12 - make sure single quotes are honored \nnot ok
 EOS
 ok 13
 EOF
@@ -260,3 +260,6 @@ my $test = 52;
 print ((exists $str{foo}      ? "" : "not ")."ok $test\n"); ++$test;
 print ((exists $str{bar}      ? "" : "not ")."ok $test\n"); ++$test;
 print ((exists $str{xyz::bar} ? "" : "not ")."ok $test\n"); ++$test;
+
+sub foo::::::bar { print "ok $test\n"; $test++ }
+foo::::::bar;