diff options
author | dgp <dgp@users.sourceforge.net> | 2002-07-01 14:35:09 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2002-07-01 14:35:09 (GMT) |
commit | 3eeb6cda634b43eb2e12bbdc7bc6b70f1ffefbb8 (patch) | |
tree | cfb93447d503dbeab21fd2aa002114f59cb7dfeb /tests/pkg | |
parent | 453df7044062f9f79fff8b0a578fc2ade81bb829 (diff) | |
download | tcl-3eeb6cda634b43eb2e12bbdc7bc6b70f1ffefbb8.zip tcl-3eeb6cda634b43eb2e12bbdc7bc6b70f1ffefbb8.tar.gz tcl-3eeb6cda634b43eb2e12bbdc7bc6b70f1ffefbb8.tar.bz2 |
* tests/pkg/samename.tcl: restored. needed by pkgMkIndex.test.
* library/tcltest/tcltest.tcl: restored writeability testing of
-tmpdir, augmented by a special exception for the deafault value.
Diffstat (limited to 'tests/pkg')
-rw-r--r-- | tests/pkg/samename.tcl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/pkg/samename.tcl b/tests/pkg/samename.tcl new file mode 100644 index 0000000..8aa5080 --- /dev/null +++ b/tests/pkg/samename.tcl @@ -0,0 +1,25 @@ +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 +} + |