diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-16 08:03:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-16 08:03:17 (GMT) |
| commit | 5cb86aa574bf8ab539797a9b908bb87db6e5b91e (patch) | |
| tree | 4c2fc1e9e2b3f313a731834caac9faf04803d383 /tests/init.test | |
| parent | 9792a27404caba808e5e0e5a15a6d86312613e4f (diff) | |
| download | tcl-5cb86aa574bf8ab539797a9b908bb87db6e5b91e.zip tcl-5cb86aa574bf8ab539797a9b908bb87db6e5b91e.tar.gz tcl-5cb86aa574bf8ab539797a9b908bb87db6e5b91e.tar.bz2 | |
Make registry 1.3 package (and possibly others) dynamically loadable in Tcl 8.4
Reverted. No good reason to partially hack 8.5 features
into (only one patch release of) 8.4. If you need to support
Tcl 8.4, just don't use [tcl::pkgconfig]. If you're set on
moving to [tcl::pkgconfig], then that's an 8.5 features and
you're choosing to drop 8.4 support.
Diffstat (limited to 'tests/init.test')
| -rw-r--r-- | tests/init.test | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/init.test b/tests/init.test index 79142c4..c46ba48 100644 --- a/tests/init.test +++ b/tests/init.test @@ -117,13 +117,11 @@ test init-2.6 {load setLogCmd from safe:: - stage 1} { rename ::safe::setLogCmd {} ; # should not fail } {} -test init-2.7 {oad setLogCmd from safe:: - stage 2} { +test init-2.7 {load setLogCmd from safe:: - stage 2} { namespace eval safe setLogCmd rename ::safe::setLogCmd {} ; # should not fail } {} - - test init-2.8 {load tcl::HistAdd} -setup { auto_reset catch {rename ::tcl::HistAdd {}} @@ -134,6 +132,11 @@ test init-2.8 {load tcl::HistAdd} -setup { rename ::tcl::HistAdd {} ; } -result {1 {wrong # args: should be "tcl:::HistAdd command ?exec?"}} +test init-2.9 {undocumented tcl::pkgconfig} -setup { +} -body { + list [catch {::tcl::pkgconfig} error] $error + } -cleanup { +} -result {1 {invalid command name "::tcl::pkgconfig"}} test init-3.0 {random stuff in the auto_index, should still work} { set auto_index(foo:::bar::blah) { |
