From 32fc07012bd8f734e3f7c05fe2a17123c6be2baf Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Thu, 12 Dec 2013 00:02:29 +1000
Subject: Fix infinite loop with error in lsort -unique

Reported-by: Sergei Gavrikov <sergei.gavrikov@gmail.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 acda96e..a0b063c 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -219,6 +219,11 @@ puts "TEST 29 PASSED"
 string tolower "/mod/video/h\303\203\302\244xan_ witchcraft through the ages_20131101_0110.t"
 puts "TEST 30 PASSED"
 
+# REGTEST 31
+# infinite lsort -unique with error
+catch {lsort -unique -real {foo 42.0}}
+puts "TEST 31 PASSED"
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"
-- 
cgit v1.1