diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-31 10:01:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-31 10:01:21 (GMT) |
| commit | c280ebcafcb45b2fb405703d10d2a8b93c377ca7 (patch) | |
| tree | 17fa89a05b21e42d5fbac3201eade0cdfc620cd1 /tests/safe.test | |
| parent | 9cfbd3e51461d673752779dc1a09e8011a701846 (diff) | |
| download | tk-c280ebcafcb45b2fb405703d10d2a8b93c377ca7.zip tk-c280ebcafcb45b2fb405703d10d2a8b93c377ca7.tar.gz tk-c280ebcafcb45b2fb405703d10d2a8b93c377ca7.tar.bz2 | |
Change expectation of safe-5.1 (error-message changed in Tcl)
Don't use Tcl_GetMaster() any more, use Tcl_GetParent() in stead. With fallback for Tcl < 8.6.11.
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 97f6688..64cd64c 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -187,7 +187,7 @@ test safe-5.1 {loading Tk in safe interps without parent's clearance} -body { interp eval $i {load {} Tk} } -cleanup { safe::interpDelete $i -} -returnCodes error -result {not allowed} +} -returnCodes error -result {load of binary library for package Tk failed: not allowed} test safe-5.2 {multi-level Tk loading with clearance} -setup { set safeParent [safe::interpCreate] } -body { |