From f6a2b97623c57c2247156b3901bf2ecfd543d203 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Mon, 28 Apr 2014 12:17:03 +1000 Subject: Add test --- regtest.tcl | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/regtest.tcl b/regtest.tcl index 3aaf3d2..68cc0d1 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -238,6 +238,14 @@ puts "TEST 32 PASSED" array unset blahblah abc puts "TEST 33 PASSED" +# REGTEST 34 +# onexception and writable conflict +stdout onexception {incr x} +stdout writable {incr y} +stdout onexception {} +stdout writable {} + + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" -- cgit v1.1