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 dandyn
1 days ago
tcl by Stu
3 days ago
tcl by philbr-t
8 days ago
tcl by arjen
10 days ago
tcl by brain
17 days ago
tcl by mjanssen
19 days ago
tcl by godotdot
19 days ago
tcl by Bradipo
20 days ago
tcl by Stu
22 days ago
tcl by Stu
23 days ago
Submit
New paste
Documentation
From Jabber