diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-12 12:40:34 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-12 12:40:34 (GMT) |
| commit | 1553090bc312c0691df9549983c1d25542c16ef5 (patch) | |
| tree | 63c3342ef3fcaf46cc58d6888da237b54ded0df9 /tests/package.test | |
| parent | f4babdb0acc66d9d4eda61a094f12f99a24b8915 (diff) | |
| download | tcl-1553090bc312c0691df9549983c1d25542c16ef5.zip tcl-1553090bc312c0691df9549983c1d25542c16ef5.tar.gz tcl-1553090bc312c0691df9549983c1d25542c16ef5.tar.bz2 | |
Add remaining wrapper to the NR functions, remaining calls to
TCL_NRAddCallback, and a test for a package require script that yields.
DGP: This checkin introduces a memleak, detected by test compExpr-7.1.
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 74415ae..bc73003 100644 --- a/tests/package.test +++ b/tests/package.test @@ -608,6 +608,18 @@ test pkg-3.53 {Tcl_PkgRequire procedure, picking best stable version} { package require t set x } {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 { |