File: test.tcl

package info (click to toggle)
mmucl 1.5.1-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 648 kB
  • ctags: 303
  • sloc: tcl: 4,977; sh: 111; makefile: 97
file content (19 lines) | stat: -rw-r--r-- 327 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
# load into mmucl to do tests

set passed 0
set failed 0

foreach test [glob *.test] {
    if {[catch {source $test} error]} {
	incr failed

	echo [file rootname $test] failed
	echo "    $error"
    } else {
	incr passed
    }
}

echo
echo [color $passed {bold green}] tests passed
echo [color $failed {bold red}] tests failed