Updated 2005-12-09 23:52:04

# PTL version -1 - just the wrappers, no defaulting behaviour, etc.
   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