From 0487721e381e7cc22be51ec6fdcd2b83dd629297 Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 18 Nov 2005 19:13:46 +0000 Subject: more tests --- tests/pkg.test | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/tests/pkg.test b/tests/pkg.test index 5d6d46f..fb27d34 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.14 2005/11/08 18:26:59 dgp Exp $ +# RCS: @(#) $Id: pkg.test,v 1.15 2005/11/18 19:13:46 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -352,6 +352,22 @@ test pkg-2.34 {Tcl_PkgRequire: consistent return values (1162286)} -setup { } -cleanup { package forget foo } -returnCodes error -match glob -result {attempt to provide package * failed:*} +test pkg-2.34.1 {Tcl_PkgRequire: consistent return values (1162286)} -setup { + package forget foo +} -body { + package ifneeded foo 1.1 {package provide foo 1} + package require foo 1 +} -cleanup { + package forget foo +} -returnCodes error -match glob -result {attempt to provide package * failed:*} +test pkg-2.34.2 {Tcl_PkgRequire: consistent return values (1162286)} -setup { + package forget foo +} -body { + package ifneeded foo 1.1 {package provide foo 1} + package require foo 1.1 +} -cleanup { + package forget foo +} -returnCodes error -match glob -result {attempt to provide package * failed:*} test pkg-2.35 {Tcl_PkgRequire: consistent return values (1162286)} -setup { package forget foo } -body { -- cgit v0.12