From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 13 Oct 2009 12:44:50 +0000 (+0100)
Subject: Move the test for the deprecated feature <<; out of t/base/lext.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3365a56c42f2f31eed84ad55632f9786ee09044;p=p5sagit%2Fp5-mst-13.2.git

Move the test for the deprecated feature <<; out of t/base/lext.t

Tests in base can't utilise pragmata, specifically no warnings 'deprecated';
---

diff --git a/MANIFEST b/MANIFEST
index 14a3a54..12f267e 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -4376,6 +4376,7 @@ t/op/lc.t			See if lc, uc, lcfirst, ucfirst, quotemeta work
 t/op/lc_user.t			See if user-defined lc et alia work
 t/op/length.t			See if length works
 t/op/lex_assign.t		See if ops involving lexicals or pad temps work
+t/op/lex.t			Tests too complex for t/base/lex.t
 t/op/lfs.t			See if large files work for perlio
 t/op/list.t			See if array lists work
 t/op/localref.t			See if local ${deref} works
diff --git a/t/base/lex.t b/t/base/lex.t
index 8cadf85..a5d87f6 100644
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -69,10 +69,11 @@ print qq
 print q<ok 17
 >;
 
-print <<;   # Yow!
-ok 18
-
-# previous line intentionally left blank.
+print "ok 18 - was the test for the deprecated use of bare << to mean <<\"\"\n";
+#print <<;   # Yow!
+#ok 18
+#
+## previous line intentionally left blank.
 
 print <<E1 eq "foo\n\n" ? "ok 19\n" : "not ok 19\n";
 @{[ <<E2 ]}
diff --git a/t/op/lex.t b/t/op/lex.t
new file mode 100644
index 0000000..3f00248
--- /dev/null
+++ b/t/op/lex.t
@@ -0,0 +1,22 @@
+#!perl -w
+use strict;
+
+require './test.pl';
+
+plan(tests => 2);
+
+{
+    no warnings 'deprecated';
+    print <<;   # Yow!
+ok 1
+
+    # previous line intentionally left blank.
+
+    my $yow = "ok 2";
+    print <<;   # Yow!
+$yow
+
+    # previous line intentionally left blank.
+}
+
+curr_test(3);