This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
heredoc.t: Add a CRLF test
authorFather Chrysostomos <sprout@cpan.org>
Wed, 22 Aug 2012 15:43:40 +0000 (08:43 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 22 Aug 2012 15:43:40 +0000 (08:43 -0700)
I nearly broke this in recent bug fixes

t/op/heredoc.t

index 5f48828..0230d88 100644 (file)
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 use strict;
-plan(tests => 7);
+plan(tests => 8);
 
 
 # heredoc without newline (#65838)
@@ -45,6 +45,12 @@ HEREDOC
         { switches => ['-X'] },
         "blank-terminated heredoc at EOF and no semicolon"
     );
+    fresh_perl_is(
+        "print <<foo\r\nick and queasy\r\nfoo\r\n",
+        'ick and queasy',
+        { switches => ['-X'] },
+        "crlf-terminated heredoc"
+    );
 }