diff options
author | dgp <dgp@noemail.net> | 2016-06-21 14:31:03 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2016-06-21 14:31:03 (GMT) |
commit | 2b275f89e6144ae4b097908c2063fa9827ffcb04 (patch) | |
tree | abb419884757568348068e3db1f4d962a6804a63 /tests/safe.test | |
parent | 2504870e49160e9aa0cc26fb42f40c95b39d4c36 (diff) | |
download | tk-2b275f89e6144ae4b097908c2063fa9827ffcb04.zip tk-2b275f89e6144ae4b097908c2063fa9827ffcb04.tar.gz tk-2b275f89e6144ae4b097908c2063fa9827ffcb04.tar.bz2 |
Start bringing Tk_Init up to date with facilities Tcl provides.
FossilOrigin-Name: 54ec3725a93f7623f8dc722d93ea541db05071eb
Diffstat (limited to 'tests/safe.test')
-rw-r--r-- | tests/safe.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/safe.test b/tests/safe.test index e7ed6c7..69a67ba 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -187,7 +187,7 @@ test safe-5.1 {loading Tk in safe interps without master's clearance} -body { interp eval $i {load {} Tk} } -cleanup { safe::interpDelete $i -} -returnCodes error -result {not allowed to start Tk by master's safe::TkInit} +} -returnCodes error -result {not allowed} test safe-5.2 {multi-level Tk loading with clearance} -setup { set safeParent [safe::interpCreate] } -body { |