From: Martin Mares <mj@ucw.cz>
Date: Thu, 2 Oct 2008 19:29:31 +0000 (+0200)
Subject: Updated the test cases.
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=ff31ec9d58b9f740db565ef2b3e81e45df283f4b;p=temple.git

Updated the test cases.
---

diff --git a/test b/test
index c857c41..67269b0 100644
--- a/test
+++ b/test
@@ -20,7 +20,7 @@ won't be broken@
 @@
 
 @# You can embed any perl code in your text:
-@[foreach $x (1..10) { print "$x "; } ]
+@[foreach $x (1..10) { out "$x "; } ]
 
 @# Or if you use @{...}, then the value of the last expression executed
 @# gets printed automatically:
@@ -29,11 +29,13 @@ won't be broken@
 @# You can also interpolate perl variables by using @$variable:
 I was run as @$0.
 
-@# It is possible to call any perl functions (result will be discarded):
-@print("One", "Two", "Three\n")
+@# It is possible to call any perl functions
+@# (any result other than undef will be printed automatically)
+@# Use `out' to write to the output stream
+@out("One", "Two", "Three\n")
 
 @# Or do the same with parameters running up to the end of the line:
-@print "Four", "Five", "Six\n"
+@out "Four", "Five", "Six\n"
 
 @# There are also some conditionals (you can use any perl expressions):
 @if 1
@@ -59,7 +61,7 @@ four
 @load "test3"
 
 @# This one is tricky:
-@print("z\n", <<EOF
+@out("z\n", <<EOF
 a
 b
 c
diff --git a/test3 b/test3
index a41bf38..c297bfc 100644
--- a/test3
+++ b/test3
@@ -1,2 +1,2 @@
-print "oook!\n";
+out "oook!\n";
 1;