tests/infoframe.test

   1 source [file dirname [info script]]/testing.tcl
   2 needs constraint jim
   3 proc a {n} {
   4         if {$n eq "trace"} {
   5                 stacktrace
   6         } else {
   7                 info frame $n
   8         }
   9 }
  10
  11 proc b {n} {
  12         a $n
  13 }
  14
  15 proc c {n} {
  16         b $n
  17 }
  18
  19 # --- Don't change line numbers above
  20
  21 test info-frame-1.1 "Current proc" {
  22         c 0
  23 } {a infoframe.test 12}
  24
  25 test info-frame-1.2 "Caller" {
  26         c -1
  27 } {b infoframe.test 16}
  28
  29 test info-frame-1.3 "Caller of Caller" {
  30         c -2
  31 } {c infoframe.test 30}
  32
  33 test stacktrace-1.1 "Full stack trace" {
  34         c trace
  35 } {a infoframe.test 12 b infoframe.test 16 c infoframe.test 34}
  36
  37 testreport