From c6a3ccc8d725a1729131a328848ad5c509b821e5 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Mon, 6 Jul 2009 20:44:28 +0000
Subject: 27092: missing then-clause for if wasn't an error

---
 Test/A01grammar.ztst | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Test/A01grammar.ztst')

diff --git a/Test/A01grammar.ztst b/Test/A01grammar.ztst
index 8f4ed2c19..e976c8356 100644
--- a/Test/A01grammar.ztst
+++ b/Test/A01grammar.ztst
@@ -378,10 +378,15 @@
 >true-2
 >false
 
-  if true; print true
+  if { true } print true
+  if { false } print false
 0:Short form of `if'
 >true
 
+  eval "if"
+1:Short form of `if' can't be too short
+?(eval):1: parse error near `if'
+
   for name ( word1 word2 word3 ) print $name
 0:Form of `for' with parentheses.
 >word1
-- 
cgit 1.4.1