From d139d42051b3539970ff5ec7fca6deb311e7307c Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Fri, 7 Apr 2017 09:14:52 +1000
Subject: Fix / command: divide by zero

Avoid exception on integer divided by zero

Reported-by: Ryan Whitworth <me@ryanwhitworth.com>
Signed-off-by: Steve Bennett <steveb@workware.net.au>
---
 regtest.tcl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'regtest.tcl')

diff --git a/regtest.tcl b/regtest.tcl
index 4f4b459..d84e72c 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -267,6 +267,11 @@ foreach i {1 2 3 4} {
 }
 puts "TEST 35 PASSED"
 
+# REGTEST 36
+# divide integer by integer zero
+catch {/ 1 0}
+puts "TEST 36 PASSED"
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"
-- 
cgit v1.1