Author: bernhard
Date: Thu Oct 6 14:32:54 2005
New Revision: 9385
Modified:
trunk/imcc/t/syn/const.t
Log:
Add a failing test for HERE documents.
Modified: trunk/imcc/t/syn/const.t
==============================================================================
--- trunk/imcc/t/syn/const.t (original)
+++ trunk/imcc/t/syn/const.t Thu Oct 6 14:32:54 2005
@@ -408,5 +408,20 @@ Happy Birthday to you!
OUT
+pir_output_is(<<'CODE', <<'OUT', "PIR heredoc: allow empty lines");
+.sub 'main' :main
+ $S0 = 'parrot'
+ print <<"END_HERE"
+
+The line above is empty.
+END_HERE
+.end
+CODE
+
+The line above is empty.
+OUT
+
+
+
## remember to change the number of tests!
-BEGIN { plan tests => 21; }
+BEGIN { plan tests => 22; }
