summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-11-23 15:35:31 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-11-23 15:35:31 (GMT)
commit010354faea29d07a39205d4d6a9e63e1a3fc0176 (patch)
tree092a69e29272972f627e1c8c82026dfb0b5be829
parente4b45ac4b9b3f4d8b9e0cc0533db0dac6e318e29 (diff)
downloadtcl-010354faea29d07a39205d4d6a9e63e1a3fc0176.zip
tcl-010354faea29d07a39205d4d6a9e63e1a3fc0176.tar.gz
tcl-010354faea29d07a39205d4d6a9e63e1a3fc0176.tar.bz2
Silence complaints caused by [namespace import] returning current imports
-rw-r--r--tests/namespace-old.test10
-rw-r--r--tests/namespace.test6
2 files changed, 6 insertions, 10 deletions
diff --git a/tests/namespace-old.test b/tests/namespace-old.test
index 16f103a..7bfea61 100644
--- a/tests/namespace-old.test
+++ b/tests/namespace-old.test
@@ -14,7 +14,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: namespace-old.test,v 1.10 2006/11/03 00:34:53 hobbs Exp $
+# RCS: @(#) $Id: namespace-old.test,v 1.11 2006/11/23 15:35:31 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -684,12 +684,8 @@ test namespace-old-9.4 {check export status} {
} {::test_ns_import::cmd1 ::test_ns_import::cmd2 ::test_ns_import::cmd3}
test namespace-old-9.5 {empty import list in "namespace import" command} {
- namespace import
-} {}
-
-test namespace-old-9.6 {empty import list for "namespace import" command} {
- namespace import
-} {}
+ lsort [namespace import]
+} {bytestring cleanupTests configure customMatch debug errorChannel errorFile getMatchingFiles interpreter limitConstraints loadFile loadScript loadTestedCommands mainThread makeDirectory makeFile match matchDirectories matchFiles normalizeMsg normalizePath outputChannel outputFile preserveCore removeDirectory removeFile restoreState runAllTests saveState singleProcess skip skipDirectories skipFiles temporaryDirectory test testConstraint testsDirectory threadReap verbose viewFile workingDirectory}
test namespace-old-9.7 {empty forget list for "namespace forget" command} {
namespace forget
diff --git a/tests/namespace.test b/tests/namespace.test
index ed9889c..3f1f5dc 100644
--- a/tests/namespace.test
+++ b/tests/namespace.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: namespace.test,v 1.62 2006/11/03 00:34:53 hobbs Exp $
+# RCS: @(#) $Id: namespace.test,v 1.63 2006/11/23 15:35:31 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -1103,8 +1103,8 @@ test namespace-27.3 {NamespaceForgetCmd, arg is forgotten} {
test namespace-28.1 {NamespaceImportCmd, no args} {
catch {namespace delete {*}[namespace children :: test_ns_*]}
- namespace import
-} {}
+ lsort [namespace import]
+} {bytestring cleanupTests configure customMatch debug errorChannel errorFile getMatchingFiles interpreter limitConstraints loadFile loadScript loadTestedCommands mainThread makeDirectory makeFile match matchDirectories matchFiles normalizeMsg normalizePath outputChannel outputFile preserveCore removeDirectory removeFile restoreState runAllTests saveState singleProcess skip skipDirectories skipFiles temporaryDirectory test testConstraint testsDirectory threadReap verbose viewFile workingDirectory}
test namespace-28.2 {NamespaceImportCmd, no args and just "-force"} {
namespace import -force
} {}