From db1bee85dfd4d3a25a6cf3bf46e2433b5a2dab39 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe>
Date: Wed, 5 Nov 2008 06:44:02 +0000
Subject: 2008-11-05 Steve Bennett <steveb@workware.net.au>

	* jim.c: fix lazy expression evaluation with unary not
---
 regtest.tcl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'regtest.tcl')

diff --git a/regtest.tcl b/regtest.tcl
index a013e3e..8aba0b8 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -45,6 +45,29 @@ if {[catch {set thisvardoesnotexists}] == 0} {
 }
 puts "TEST 6 PASSED"
 
+# REGTEST 7
+# 04Nov2008 - variable parsing does not eat last brace
+set a 1
+list ${a}
+puts "TEST 7 PASSED"
+
+# REGTEST 8
+# 04Nov2008 - string toupper/tolower do not convert to string rep
+string tolower [list a]
+string toupper [list a]
+puts "TEST 8 PASSED"
+
+# REGTEST 9
+# 04Nov2008 - crash on exit when replacing Tcl proc with C command. Requires the aio extension
+proc aio.open {args} {}
+catch {package require aio}
+# Note, crash on exit, so don't say we passed!
+
+# REGTEST 10
+# 05Nov2008 - incorrect lazy expression evaluation with unary not
+expr {1 || !0}
+puts "TEST 10 PASSED"
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"
-- 
cgit v1.1