test harness
Posted to
tcl
by bairui at Thu Apr 27 02:40:52 GMT 2017
view raw
for
{
set
i 0} {
$i
< 1000} {
incr
i} {
puts
"Test run #
$i
"
if
{[
catch
{
exec
tclsh mjanssen_thread_example.tcl } result]} {
puts
stderr "Error:
$result
"
exit
1
}
else
{
puts
$result
}
}
Recent Posts
tcl by mookie
13 days ago
tcl by apn
13 days ago
tcl by schelte
16 days ago
tcl by dandyn
18 days ago
tcl by apn
19 days ago
tcl by pascal
19 days ago
tcl by mookie
24 days ago
tcl by dandyn
28 days ago
tcl by kevin_walzer
28 days ago
tcl by mookie
32 days ago
Submit
New paste
Documentation
From Jabber