Author: particle
Date: Tue Oct 25 13:42:18 2005
New Revision: 9569
Modified:
trunk/imcc/t/syn/const.t
Log:
one more heredoc test
Modified: trunk/imcc/t/syn/const.t
==============================================================================
--- trunk/imcc/t/syn/const.t (original)
+++ trunk/imcc/t/syn/const.t Tue Oct 25 13:42:18 2005
@@ -498,5 +498,33 @@ CODE
OUT
+pir_output_is(<<'CODE', <<'OUT', "PIR heredoc: escaped characters, escaped
quotes, starting quotes");
+.sub test :main
+ .local string test
+
+ test = <<"TEST"
+{ \{ \\{
+w \w \\w
+" \" \\"
+{ \{ \\{
+w \w \\w
+" \" \\"
+{ \{ \\{
+w \w \\w
+TEST
+ print test
+.end
+CODE
+{ { \{
+w w \w
+" " \"
+{ { \{
+w w \w
+" " \"
+{ { \{
+w w \w
+OUT
+
+
## remember to change the number of tests!
-BEGIN { plan tests => 28; }
+BEGIN { plan tests => 29; }
