This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test perl #4760
[perl5.git] / t / op / magic.t
index 575dae7..3fb1ea1 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    plan (tests => 176);
+    plan (tests => 177);
 }
 
 # Test that defined() returns true for magic variables created on the fly,
@@ -618,6 +618,11 @@ is ${^LAST_FH}, \*STDIN, '${^LAST_FH} after another tell';
 is ${^LAST_FH}, undef, '${^LAST_FH} is undef when PL_last_in_gv is NULL';
 
 
+# $|
+fresh_perl_is 'print $| = ~$|', "1\n", {switches => ['-l']}, 
+ '[perl #4760] print $| = ~$|';
+
+
 # ^^^^^^^^^ New tests go here ^^^^^^^^^
 
 SKIP: {