diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-07-24 16:05:22 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-07-24 16:05:22 (GMT) |
| commit | db3db9df91cdc7d1b0bdac6c9c927765ce9afd95 (patch) | |
| tree | 829c6228c7d8db111e9b0b193de20a6c182b21be /tests/basic.test | |
| parent | 69bc2d2dcd6bd96a75ea42e0fdb1c23fc1054390 (diff) | |
| download | tcl-db3db9df91cdc7d1b0bdac6c9c927765ce9afd95.zip tcl-db3db9df91cdc7d1b0bdac6c9c927765ce9afd95.tar.gz tcl-db3db9df91cdc7d1b0bdac6c9c927765ce9afd95.tar.bz2 | |
* tests/async.test: Added several tests that demonstrate Tcl
* tests/basic.test: Bug 489537, Tcl's longstanding failure to
* tests/dict.test: properly quote any leading '#' character
* tests/dstring.test: when generating the string rep of a list
* tests/list.test: so that the comment-power of that character
* tests/parse.test: is hidden from any [eval], in order to
* tests/util.test: satisfy the documentation that [list] does
[eval]-safe quoting.
Diffstat (limited to 'tests/basic.test')
| -rw-r--r-- | tests/basic.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/basic.test b/tests/basic.test index fac8dbf..a16220c 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -15,7 +15,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: basic.test,v 1.28 2003/06/25 23:02:11 dkf Exp $ +# RCS: @(#) $Id: basic.test,v 1.29 2003/07/24 16:05:24 dgp Exp $ # package require tcltest 2 @@ -317,6 +317,11 @@ test basic-20.2 {Tcl_GetCommandInfo, names for commands created outside namespac [rename test_ns_basic::test_ns_basic2::p q] \ [testcmdtoken name $x] } {{p ::test_ns_basic::test_ns_basic2::p} {} {q ::q}} +test basic-20.3 {Tcl_GetCommandInfo, #-quoting} { + catch {rename \# ""} + set x [testcmdtoken create \#] + testcmdtoken name $x +} {{#} ::#} test basic-21.1 {Tcl_GetCommandName} {emptyTest} { } {} |