46 lines
1.0 KiB
Diff
46 lines
1.0 KiB
Diff
From edea384e57453b0a62de58445eed1fded18c1cca Mon Sep 17 00:00:00 2001
|
|
From: Yves Orton <demerphq@gmail.com>
|
|
Date: Thu, 29 Jun 2017 13:20:49 +0200
|
|
Subject: [PATCH] add an additional test for whitespace tolerance in caret
|
|
word-vars
|
|
MIME-Version: 1.0
|
|
Content-Type: text/plain; charset=UTF-8
|
|
Content-Transfer-Encoding: 8bit
|
|
|
|
Petr Písař: Ported to 5.26.2-RC1.
|
|
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
---
|
|
t/base/lex.t | 7 +++++--
|
|
1 file changed, 5 insertions(+), 2 deletions(-)
|
|
|
|
diff --git a/t/base/lex.t b/t/base/lex.t
|
|
index ae17bbd..414aa1f 100644
|
|
--- a/t/base/lex.t
|
|
+++ b/t/base/lex.t
|
|
@@ -1,6 +1,6 @@
|
|
#!./perl
|
|
|
|
-print "1..119\n";
|
|
+print "1..120\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++;
|
|
--
|
|
2.14.3
|
|
|