tests/jiminterp.test

   1 source [file dirname [info script]]/testing.tcl
   2
   3 needs constraint jim
   4 needs cmd interp
   5
   6 test interp-1.0 {interp bad args} -body {
   7         interp arg
   8 } -returnCodes error -result {wrong # args: should be "interp"}
   9
  10 test interp-1.1 {interp alias} {
  11     set i [interp]
  12     $i alias subincr incr
  13     $i eval { set x 0 }
  14     $i eval { subincr x }
  15     $i eval { subincr x }
  16 } {2}
  17
  18 test interp-1.2 {interp alias delete} {
  19     $i eval { rename subincr "" }
  20 } {}
  21
  22 test interp-1.3 {interp delete } {
  23     $i alias subincr2 incr
  24     $i delete
  25 } {}
  26
  27 testreport