From 03dfbab0df8343a37518b9e4818dc4aa31e65d8a Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sat, 16 May 1998 21:54:23 +0000 Subject: [win32] merge changes#996,998,999 from maintbranch p4raw-link: @999 on //depot/maint-5.004/perl: 52d674631edd5d1237df7203efc4396c3b77f8e7 p4raw-link: @998 on //depot/maint-5.004/perl: 8eaf12205a772c0a833cee734c82473643013f95 p4raw-link: @996 on //depot/maint-5.004/perl: 44110adace3111d6546fef417a9c88b22157bba2 p4raw-id: //depot/win32/perl@1006 --- t/base/lex.t | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 't') diff --git a/t/base/lex.t b/t/base/lex.t index 31bb056b5b..045cb22eb0 100755 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -2,7 +2,7 @@ # $RCSfile: lex.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:04 $ -print "1..28\n"; +print "1..30\n"; $x = 'x'; @@ -104,9 +104,15 @@ print "FOO:" =~ /$foo[:]/ ? "ok 24\n" : "not ok 24\n"; print "ABC" =~ /^$ary[$A]$/ ? "ok 25\n" : "not ok 25\n"; print "FOOZ" =~ /^$foo[$A-Z]$/ ? "ok 26\n" : "not ok 26\n"; -print (((q{{\{\(}} . q{{\)\}}}) eq '{{\(}{\)}}') ? "ok 27\n" : "not ok 27\n"); +# MJD 19980425 +($X, @X) = qw(a b c d); +print "d" =~ /^$X[-1]$/ ? "ok 27\n" : "not ok 27\n"; +print "a1" !~ /^$X[-1]$/ ? "ok 28\n" : "not ok 28\n"; -$foo = "not ok 28\n"; +print (((q{{\{\(}} . q{{\)\}}}) eq '{{\(}{\)}}') ? "ok 29\n" : "not ok 29\n"); + + +$foo = "not ok 30\n"; $foo =~ s/^not /substr(<