diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-06-23 14:18:06 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-06-23 14:18:06 (GMT) |
| commit | 6cbfdcc4a338d5b7348ee7e65a7710d13f9bc27e (patch) | |
| tree | 57c018dc638e7d15e1dd5ed5ba3c3d6398dd8c10 /tests/expr.test | |
| parent | 94ec3d943104b645666e3f71feb61ac260a43fcf (diff) | |
| download | tcl-6cbfdcc4a338d5b7348ee7e65a7710d13f9bc27e.zip tcl-6cbfdcc4a338d5b7348ee7e65a7710d13f9bc27e.tar.gz tcl-6cbfdcc4a338d5b7348ee7e65a7710d13f9bc27e.tar.bz2 | |
Add a test for no generation of a string representation when comparing with the
empty string.
Diffstat (limited to 'tests/expr.test')
| -rw-r--r-- | tests/expr.test | 9 |
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 |