One of the safe Tk tests

Posted to tcl by dkf at Tue Nov 08 08:54:38 GMT 2022view raw

test safe-1.1 {Safe Tk loading into an interpreter} -setup {
catch {safe::interpDelete a}
} -body {
safe::loadTk [safe::interpCreate a]
safe::interpDelete a
set x {}
return $x
} -result {}