From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 24 Oct 1999 13:19:17 +0000 (+0000)
Subject: test for #2835 (yeah, better later than never)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d001be838fe600501da2961d7e665c0b4691d00;p=p5sagit%2Fp5-mst-13.2.git

test for #2835 (yeah, better later than never)

p4raw-id: //depot/cfgperl@4439
---

diff --git a/t/op/array.t b/t/op/array.t
index 3409556..1108f49 100755
--- a/t/op/array.t
+++ b/t/op/array.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..65\n";
+print "1..66\n";
 
 #
 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
@@ -211,3 +211,8 @@ my $t = 63;
 sub reify { $_[1] = ++$t; print "@_\n"; }
 reify('ok');
 reify('ok');
+
+# qw() is no more a runtime split, it's compiletime.
+print "not " unless qw(foo bar snorfle)[2] eq 'snorfle';
+print "ok 66\n";
+