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 rmax
15 days ago
tcl by oldlaptop
16 days ago
tcl by schelte
16 days ago
tcl by Bradipo
29 days ago
tcl by kbk
39 days ago
tcl by oldlaptop
42 days ago
tcl by Julian Noble
48 days ago
tcl by oldlaptop
71 days ago
tcl by dandyn
76 days ago
tcl by oldlaptop
79 days ago
Submit
New paste
Documentation
From Jabber