diff options
author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-06 11:16:51 (GMT) |
---|---|---|
committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-06 11:16:51 (GMT) |
commit | 2567185fd23306471a28bd33da7ddea94b0b44bc (patch) | |
tree | 376bc9f3339d1c78ca3f418577f65725f97dc257 /tests/package.test | |
parent | 77821adfe89e6c3507ef12250dec40cf04ff8a0e (diff) | |
download | tcl-2567185fd23306471a28bd33da7ddea94b0b44bc.zip tcl-2567185fd23306471a28bd33da7ddea94b0b44bc.tar.gz tcl-2567185fd23306471a28bd33da7ddea94b0b44bc.tar.bz2 |
Add remaining wrapper to the NR functions, remaining calls to
TCL_NRAddCallback, and a test for a package require script that yields.
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 bb938b8..2843701 100644 --- a/tests/package.test +++ b/tests/package.test @@ -625,6 +625,18 @@ test pkg-3.53 {Tcl_PkgRequire procedure, picking best stable version} -constrain package require t set x } -result {1.1} +test package-3.54 {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 { |