Posted to tcl by oldlaptop at Tue Sep 09 23:19:44 GMT 2025view pretty

test foo-1.1 {foo should refuse to frob directories} -setup {
    set bogodir [makeDirectory unfrobbable] ;# depends on tcltest's -tmpdir option
} -body {
    foo $bogodir
} -cleanup {
    removeDirectory unfrobbable
}-resultCodes error -result "can't frob directory: $bogodir" ;# but bogodir is not set until -setup runs!