#!tclsh
#
set test_results [open test_results a]
puts $test_results "$argv Done!"
close $test_results

# Put results to stdout

catch {exec cat test_results | grep -c FAILED} rrr
if {[lindex $rrr 0] == 0} {puts "No failed tests"} else {
    puts "[lindex $rrr 0] tests failed.  The Failures are:"
    catch {exec cat test_results | grep -n FAILED} rrr
    puts $rrr
}
catch {exec cat test_results | grep -c "generated error"} rrr
puts "[lindex $rrr 0] tests failed due to \'generated error\'"
puts "$argv DONE!"
