add an additional test for whitespace tolerance in caret word-vars
authorYves Orton <demerphq@gmail.com>
Thu, 29 Jun 2017 11:20:49 +0000 (13:20 +0200)
committerYves Orton <demerphq@gmail.com>
Thu, 29 Jun 2017 11:20:49 +0000 (13:20 +0200)
t/base/lex.t

index 89d46df..de33e7a 100644 (file)
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..116\n";
+print "1..117\n";
 
 $x = 'x';
 
@@ -158,9 +158,12 @@ my $test = 31;
   ${^TEST}= "splat";
   @{^TEST}= ("foo", "bar");
   %{^TEST}= ("foo" => "FOO", "bar" => "BAR" );
-
+  
   print "not " if "${^TEST}" ne "splat";
   print "ok $test\n"; $test++;
+  
+  print "not " if "${ ^TEST }" ne "splat";
+  print "ok $test\n"; $test++;
 
   print "not " if "${^TEST}[0]" ne "splat[0]";
   print "ok $test\n"; $test++;