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

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

1 files changed, 22 insertions, 0 deletions

diff --git a/t/op/lex.t b/t/op/lex.t
new file mode 100644
index 0000000000..3f00248ae5
--- /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);