diff options
| author | stanton <stanton> | 1998-10-06 20:27:21 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-10-06 20:27:21 (GMT) |
| commit | 300730f642b3e74662535c07dc1ee71a5f806a8d (patch) | |
| tree | efbbd90e97ccdbc780f4e91341534aebf7ab98e5 /tests/if.test | |
| parent | c91239e58821f71b3fdbac27a30feb1ae8706a07 (diff) | |
| download | tcl-300730f642b3e74662535c07dc1ee71a5f806a8d.zip tcl-300730f642b3e74662535c07dc1ee71a5f806a8d.tar.gz tcl-300730f642b3e74662535c07dc1ee71a5f806a8d.tar.bz2 | |
added test for compilation of "::if"
Diffstat (limited to 'tests/if.test')
| -rw-r--r-- | tests/if.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/if.test b/tests/if.test index cfd3876..a7af9e6 100644 --- a/tests/if.test +++ b/tests/if.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: if.test,v 1.1.2.2 1998/09/24 23:59:26 stanton Exp $ +# RCS: @(#) $Id: if.test,v 1.1.2.3 1998/10/06 20:27:21 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -1002,4 +1002,8 @@ test if-8.5 {if cmd with computed command names: return value} { $z 0 then {set a 22; concat abc} elseif 1 {concat def} {concat ghi} } def +test if-9.1 {if cmd with namespace qualifiers} { + ::if {1} {set x 4} +} 4 + return |