diff options
| author | hypnotoad <yoda@etoyoc.com> | 2016-10-02 12:07:40 (GMT) |
|---|---|---|
| committer | hypnotoad <yoda@etoyoc.com> | 2016-10-02 12:07:40 (GMT) |
| commit | 0c444bd87e7dc74b25427a5fccf08ddd8d565cd6 (patch) | |
| tree | 3afc6c9d5e73e2e86de808ce98ce275312d3dc7e /tests/safe.test | |
| parent | 20c81b194394bb6ea16d1831f6f895b63477819c (diff) | |
| parent | 6c0dafab46875ddb6dd0a91f5e056a8d87722ca6 (diff) | |
| download | tk-core_zip_vfs.zip tk-core_zip_vfs.tar.gz tk-core_zip_vfs.tar.bz2 | |
Pulling changes from trunkcore_zip_vfs
Diffstat (limited to 'tests/safe.test')
| -rw-r--r-- | tests/safe.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/safe.test b/tests/safe.test index e7ed6c7..9a3bcfc 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -15,7 +15,7 @@ namespace import -force tcltest::test # Can't find a usable tk.tcl in the following directories: # {$p(:26:)} -# +# # $p(:26:)/tk.tcl: script error # script error # invoked from within @@ -23,8 +23,8 @@ namespace import -force tcltest::test # ("uplevel" body line 1) # invoked from within # "uplevel #0 [list source $file]" -# -# +# +# # This probably means that tk wasn't installed properly. ## it indicates that something went wrong sourcing tk.tcl. @@ -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 { |