summaryrefslogtreecommitdiffstats
path: root/tests/init.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-10-26 20:14:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-10-26 20:14:12 (GMT)
commit956ad7d1c1652337eea492700d7c26289b4b62ec (patch)
treed434a0b7fcce12b2effd71b0d201f00fc9b516ca /tests/init.test
parent3b8998f718fd830f6970613aacd65a07eab544e5 (diff)
downloadtcl-956ad7d1c1652337eea492700d7c26289b4b62ec.zip
tcl-956ad7d1c1652337eea492700d7c26289b4b62ec.tar.gz
tcl-956ad7d1c1652337eea492700d7c26289b4b62ec.tar.bz2
* tests/compile.test (compile-12.4): Backport test for Bug 1001997.
* tests/timer.test (timer-10.1): Backport test for Bug 1016167. * tests/tcltest.test (tcltest-12.3,4): Backport setup corrections. * tests/error.test (error-6.3,4,7,9): Backport of some tests. * tests/basic.test (basic-49.*): * tests/namespace.test (namespace-8.7): * tests/init.test (init-2.8): Updated to not rely on http package. * generic/tclThreadTest.c (ThreadEventProc): Corrected subtle bug where the returned (char *) from Tcl_GetStringResult(interp) continued to be used without copying or refcounting, while activity on the interp continued.
Diffstat (limited to 'tests/init.test')
-rw-r--r--tests/init.test19
1 files changed, 9 insertions, 10 deletions
diff --git a/tests/init.test b/tests/init.test
index 67a23a6..db97c35 100644
--- a/tests/init.test
+++ b/tests/init.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: init.test,v 1.9.2.1 2003/07/18 23:35:39 dgp Exp $
+# RCS: @(#) $Id: init.test,v 1.9.2.2 2004/10/26 20:14:36 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -125,17 +125,16 @@ test init-2.7 {oad setLogCmd from safe:: - stage 2} {
} {}
-auto_reset
-package require http 2.0
-catch {rename ::http::geturl {}}
-test init-2.8 {load http::geturl (package)} {
+test init-2.8 {load tcl::HistAdd} -setup {
+ auto_reset
+ catch {rename ::tcl::HistAdd {}}
+} -body {
# 3 ':' on purpose
- set ret [catch {http:::geturl} error]
- # removing it, for the next test. should not fail.
- rename ::http::geturl {} ;
- list $ret $error
-} {1 {wrong # args: should be "http:::geturl url args"}}
+ list [catch {tcl:::HistAdd} error] $error
+} -cleanup {
+ rename ::tcl::HistAdd {} ;
+} -result {1 {wrong # args: should be "tcl:::HistAdd command ?exec?"}}
test init-3.0 {random stuff in the auto_index, should still work} {