diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-07-18 05:49:48 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-07-18 05:49:48 (GMT) |
| commit | 19ae84136c8b20a3062fc02e9f4f78511e1168d7 (patch) | |
| tree | 28d2fde9d27e55c9c818aad17ac81c5f6def321f /tests/package.test | |
| parent | 9cc388df3d06570e47d68f284a74f4fa26b45426 (diff) | |
| download | tcl-pyk_pkgrequirenre.zip tcl-pyk_pkgrequirenre.tar.gz tcl-pyk_pkgrequirenre.tar.bz2 | |
NRE-enable [package ifneeded] scripts.pyk_pkgrequirenre
Diffstat (limited to 'tests/package.test')
| -rw-r--r-- | tests/package.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/package.test b/tests/package.test index 49346d8..9334f0e 100644 --- a/tests/package.test +++ b/tests/package.test @@ -605,6 +605,18 @@ test package-3.52 {Tcl_PkgRequire procedure, picking best stable version} -setup package require t return $x } -result {1.3} +test package-3.53 {Tcl_PkgRequire procedure, coroutine support} -setup { + package forget t +} -body { + coroutine coro1 apply {{} { + package ifneeded t 2.1 { + yield + package provide t 2.1 + } + package require t 2.1 + }} + list [catch {coro1} msg] $msg +} -match glob -result {0 2.1} test package-4.1 {Tcl_PackageCmd procedure} -returnCodes error -body { package |