Add a test for no generation of a string representation when comparing with the

empty string.

1 files changed, 9 insertions, 0 deletions

diff --git a/tests/expr.test b/tests/expr.test
index fd11870..a265ac6 100644
--- a/tests/expr.test
+++ b/tests/expr.test
@@ -7196,6 +7196,15 @@ test expr-51.1 {test round-to-even on input} {
     expr 6.9294956446009195e15
 } 6929495644600920.0
 
+test expr-52.1 {
+	comparison with empty string does not generate string representation
+} {
+	set a [list one two three]
+	list [expr {$a eq {}}] [expr {$a < {}}] [expr {$a > {}}] [
+		string match {*no string representation*} [
+		::tcl::unsupported::representation $a]]
+} {0 0 1 1} 
+
 
 
 # cleanup