diff options
author | dgp <dgp@users.sourceforge.net> | 2002-07-01 04:06:51 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2002-07-01 04:06:51 (GMT) |
commit | 21c2b3f94cc68e59ad5b480e23615818aca6c6e3 (patch) | |
tree | 598fe38989c6bb6e2a7fcdef06a31cce6335fe7d /tests/pkg | |
parent | 9aa8e5b0df06c585ca9336eaea31fd6cde87d2f5 (diff) | |
download | tcl-21c2b3f94cc68e59ad5b480e23615818aca6c6e3.zip tcl-21c2b3f94cc68e59ad5b480e23615818aca6c6e3.tar.gz tcl-21c2b3f94cc68e59ad5b480e23615818aca6c6e3.tar.bz2 |
* Updated auto_mkIndex tests to use
[makeFile] and [removeFile] so tests are done in [temporaryDirecotry]
where write access is guaranteed.
Diffstat (limited to 'tests/pkg')
-rw-r--r-- | tests/pkg/magicchar.tcl | 6 | ||||
-rw-r--r-- | tests/pkg/magicchar2.tcl | 1 | ||||
-rw-r--r-- | tests/pkg/samename.tcl | 25 |
3 files changed, 0 insertions, 32 deletions
diff --git a/tests/pkg/magicchar.tcl b/tests/pkg/magicchar.tcl deleted file mode 100644 index dc68fcd..0000000 --- a/tests/pkg/magicchar.tcl +++ /dev/null @@ -1,6 +0,0 @@ -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 {} {} diff --git a/tests/pkg/magicchar2.tcl b/tests/pkg/magicchar2.tcl deleted file mode 100644 index 2e7b47f..0000000 --- a/tests/pkg/magicchar2.tcl +++ /dev/null @@ -1 +0,0 @@ -proc {[magic mojo proc]} {} {} diff --git a/tests/pkg/samename.tcl b/tests/pkg/samename.tcl deleted file mode 100644 index 8aa5080..0000000 --- a/tests/pkg/samename.tcl +++ /dev/null @@ -1,25 +0,0 @@ -package provide football 1.0 - -namespace eval ::pro:: { - # - # export only public functions. - # - namespace export {[a-z]*} -} -namespace eval ::college:: { - # - # export only public functions. - # - namespace export {[a-z]*} -} - -proc ::pro::team {} { - puts "go packers!" - return true -} - -proc ::college::team {} { - puts "go badgers!" - return true -} - |