diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-04 13:51:26 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-04 13:51:26 (GMT) |
commit | 6c67fa6248b76a800bbd47bdc27bfec84e1f0de4 (patch) | |
tree | 13e489715f534612ca857cb1aba863c013ecb4c3 /tests | |
parent | 98cb2bfc19d4903738442df6575ee97ee131e2aa (diff) | |
download | tcl-6c67fa6248b76a800bbd47bdc27bfec84e1f0de4.zip tcl-6c67fa6248b76a800bbd47bdc27bfec84e1f0de4.tar.gz tcl-6c67fa6248b76a800bbd47bdc27bfec84e1f0de4.tar.bz2 |
Fix 2 test-cases, due to changed command options.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/info.test | 4 | ||||
-rw-r--r-- | tests/package.test | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/info.test b/tests/info.test index a6a5919..fd89b47 100644 --- a/tests/info.test +++ b/tests/info.test @@ -397,8 +397,8 @@ test info-10.3 {info library option} -body { set tcl_library $savedLibrary; unset savedLibrary test info-11.1 {info loaded option} -body { - info loaded a b -} -returnCodes error -result {wrong # args: should be "info loaded ?interp?"} + info loaded a b c +} -returnCodes error -result {wrong # args: should be "info loaded ?interp? ?packageName?"} test info-11.2 {info loaded option} -body { info loaded {}; info loaded gorp } -returnCodes error -result {could not find interpreter "gorp"} diff --git a/tests/package.test b/tests/package.test index 49346d8..99f9f06 100644 --- a/tests/package.test +++ b/tests/package.test @@ -832,7 +832,7 @@ test package-4.52 {Tcl_PackageCmd procedure, "vsatisfies" option} { } {0} test package-4.53 {Tcl_PackageCmd procedure, "versions" option} -body { package foo -} -returnCodes error -result {bad option "foo": must be forget, ifneeded, names, prefer, present, provide, require, unknown, vcompare, versions, or vsatisfies} +} -returnCodes error -result {bad option "foo": must be files, forget, ifneeded, names, prefer, present, provide, require, unknown, vcompare, versions, or vsatisfies} test package-4.54 {Tcl_PackageCmd procedure, "vsatisfies" option} -body { package vsatisfies 2.1 2.1-3.2-4.5 } -returnCodes error -result {expected versionMin-versionMax but got "2.1-3.2-4.5"} |