diff options
| author | ericm <ericm> | 2000-01-28 16:38:34 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-01-28 16:38:34 (GMT) |
| commit | 7f1780c6f594cd00f51e77b191d7659f31e84743 (patch) | |
| tree | cf5e1d8cdb70f1a76905008eba1cbfd83a2052c3 /tests/pkg | |
| parent | ce3b1a3fb5578366ca5a44cf0a5436abe27e7a92 (diff) | |
| download | tcl-7f1780c6f594cd00f51e77b191d7659f31e84743.zip tcl-7f1780c6f594cd00f51e77b191d7659f31e84743.tar.gz tcl-7f1780c6f594cd00f51e77b191d7659f31e84743.tar.bz2 | |
* tests/pkg/magicchar.tcl:
* tests/autoMkindex.test: Test for fix for bug #2611.
* library/auto.tcl: Fixed the regular expression that performs $
escaping before sourcing a file to index. It was erroneously
adding \ escapes even to $'s that were already escaped,
effectively "un-escaping" those $'s. (bug #2611).
Diffstat (limited to 'tests/pkg')
| -rw-r--r-- | tests/pkg/magicchar.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/pkg/magicchar.tcl b/tests/pkg/magicchar.tcl new file mode 100644 index 0000000..dc68fcd --- /dev/null +++ b/tests/pkg/magicchar.tcl @@ -0,0 +1,6 @@ +set dollar1 "this string contains an unescaped dollar sign -> \\$foo" +set dollar2 "this string contains an escaped dollar sign -> \$foo \\\$foo" +set bracket1 "this contains an unescaped bracket [NoSuchProc]" +set bracket2 "this contains an escaped bracket \[NoSuchProc\]" +set bracket3 "this contains nested unescaped brackets [[NoSuchProc]]" +proc testProc {} {} |