280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
|
set sourcefile [makeFile {} source.file]
file delete $sourcefile
set f [open $sourcefile w]
fconfigure $f -encoding utf-8
puts $f "proc \u20ac {} {return foo}"
close $f
} -body {
source -encoding ascii $sourcefile
\u20ac
} -cleanup {
removeFile source.file
} -returnCodes error -match glob -result {invalid command name*}
test source-8.1 {source and coroutine/yield} -setup {
set sourcefile [makeFile {} source.file]
file delete $sourcefile
} -body {
makeFile {yield 1; yield 2; return 3;} $sourcefile
coroutine coro apply {f {yield;source $f}} $sourcefile
|
|
|
|
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
|
set sourcefile [makeFile {} source.file]
file delete $sourcefile
set f [open $sourcefile w]
fconfigure $f -encoding utf-8
puts $f "proc \u20ac {} {return foo}"
close $f
} -body {
source -encoding iso8859-1 $sourcefile
\u20ac
} -cleanup {
removeFile source.file
} -returnCodes error -result "invalid command name \"\u20ac\""
test source-8.1 {source and coroutine/yield} -setup {
set sourcefile [makeFile {} source.file]
file delete $sourcefile
} -body {
makeFile {yield 1; yield 2; return 3;} $sourcefile
coroutine coro apply {f {yield;source $f}} $sourcefile
|