summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2001-08-06 19:13:29 (GMT)
committerdgp <dgp@users.sourceforge.net>2001-08-06 19:13:29 (GMT)
commita9d8cafeb160316d137181d239ab61b01e679abe (patch)
treea21d7fe366552ac56a35c933167c2682ae9e590e /tests
parent8e79e931d21c8ba6841e2160abcd6323529d8387 (diff)
downloadtcl-a9d8cafeb160316d137181d239ab61b01e679abe.zip
tcl-a9d8cafeb160316d137181d239ab61b01e679abe.tar.gz
tcl-a9d8cafeb160316d137181d239ab61b01e679abe.tar.bz2
* [package forget] now forgets all of the
package arguments it receives, not stopping when a package is not found. [Bug 415273]
Diffstat (limited to 'tests')
-rw-r--r--tests/pkg.test10
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/pkg.test b/tests/pkg.test
index 9618ed8..9dd0784 100644
--- a/tests/pkg.test
+++ b/tests/pkg.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: pkg.test,v 1.8 2000/04/10 17:19:03 ericm Exp $
+# RCS: @(#) $Id: pkg.test,v 1.9 2001/08/06 19:13:29 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -301,6 +301,14 @@ test pkg-3.5 {Tcl_PackageCmd procedure, "forget" option} {
package forget a c
lappend result [lsort [package names]]
} {{a b c} b}
+test pkg-3.5.1 {Tcl_PackageCmd procedure, "forget" option} {
+ # Test for Bug 415273
+ package ifneeded a 1 "I should have been forgotten"
+ package forget no-such-package a
+ set x [package ifneeded a 1]
+ package forget a
+ set x
+} {}
test pkg-3.6 {Tcl_PackageCmd procedure, "ifneeded" option} {
list [catch {package ifneeded a} msg] $msg
} {1 {wrong # args: should be "package ifneeded package version ?script?"}}