keygeneration
	addressformat
	blocks
	work
}

foreach test $tests {
	puts -nonewline "\[    \] $test"
	flush stdout

	if {[catch {
	if {![test_$test]} {
		puts "FAILED test $test"
		exit 1
	} else {
		puts "\[OK\] $test"
		if {![test_$test]} {
			puts "\[FAIL\] $test"
			exit 1
		} else {
			puts "\r\[ OK \] $test"
		}
	} testErr]} {
		puts "\[ERR \] $test: $testErr"
		exit 1
	}
}

puts "DONE"
puts "\[DONE\] All tests pass"

exit 0