foreach {kw o} {
Name: name
Description: description
Result: -result
Output: -output
} {
proc $kw {a} [list set ::options($kw) {$a}]
}
proc Test: {a} {
set ::options(-test) $a
eval tcltest::test $::options(name) $::options(description) \
[list [array get ::options -*]]
}if {0} { Note to Phil, he better test this :-). }
Category Testing
