From e1bf40597713aa821eb91c7e6c0aee96519f32c4 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Fri, 12 May 2017 13:00:28 +1000
Subject: scan: Ensure format is converted to string form

Must have a stringrep before parsing.

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 033f430..854d96a 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -320,6 +320,11 @@ puts "TEST 44 PASSED"
 catch [list regexp "u{0" x]
 puts "TEST 45 PASSED"
 
+# REGTEST 46
+# scan with no stringrep
+catch {scan $(1) $(1)}
+puts "TEST 46 PASSED"
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"
-- 
cgit v1.1