Test bug #123372

1 files changed, 11 insertions, 1 deletions

diff --git a/t/base/lex.t b/t/base/lex.t
index dc81e9d2ad..e537805c3f 100644
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..101\n";
+print "1..102\n";
 
 $x = 'x';
 
@@ -387,6 +387,16 @@ print "ok $test - call a function in package v10::foo\n"; $test++;
 
 print "not " unless (1?v65:"bar") eq 'A';
 print "ok $test - colon detection after vstring does not break ? vstring :\n"; $test++;
+if (ord("\t") == 9) {
+    print v35;
+    print "not ";
+    print v10;
+    print "ok $test - print vstring prints the vstring\n";
+}
+else {
+    print "ok $test # skipped on EBCDIC\n";
+}
+$test++;
 
 # Test pyoq ops with comments before the first delim
 q # comment