From 4db28c55b64ec25cd258f87a0d60b0544fe50059 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Fri, 10 Jul 2009 22:10:25 +0000
Subject: 27126: a few more contexts where executing empty lists gives status
 zero

---
 Test/C04funcdef.ztst | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'Test/C04funcdef.ztst')

diff --git a/Test/C04funcdef.ztst b/Test/C04funcdef.ztst
index 73eba8697..338c36fab 100644
--- a/Test/C04funcdef.ztst
+++ b/Test/C04funcdef.ztst
@@ -1,5 +1,20 @@
 %test
 
+  fn1() { return 1; }
+  fn2() {
+      fn1
+      print $?
+      return 2
+  }
+  fn2
+2:Basic status returns from functions
+>1
+
+  fnz() { }
+  false
+  fnz
+0:Empty function body resets status
+
   function f$$ () {
     print regress expansion of function names
   }
-- 
cgit 1.4.1