tests/errors.tcl

   1 # Package which can generate a variety of errors at known locations
   2
   3 proc error_generator {type} {
   4         switch $type {
   5                 badcmd {
   6                         bogus command called
   7                 }
   8                 badvar {
   9                         set bogus
  10                 }
  11                 error {
  12                         error bogus
  13                 }
  14                 interpbadvar {
  15                         set x "some $bogus text"
  16                 }
  17                 interpbadcmd {
  18                         set x "some $bogus text"
  19                 }
  20                 package {
  21                         package require dummy
  22                 }
  23                 source {
  24                         source dummy.tcl
  25                 }
  26                 badpackage {
  27                         package require bogus
  28                 }
  29                 returncode {
  30                         return -code error failure
  31                 }
  32                 badproc {
  33                         error_badproc
  34                 }
  35                 default {
  36                         puts "Unknown type=$type"
  37                 }
  38         }
  39 }
  40 # line 40: Some empty lines above so that line numbers don't change
  41 proc error_caller {type {method call}} {
  42         switch $method {
  43                 call {
  44                         error_generator $type
  45                 }
  46                 uplevel {
  47                         uplevel 1 [list error_generator $type]
  48                 }
  49                 eval {
  50                         eval [list error_generator $type]
  51                 }
  52                 evalstr {
  53                         eval error_generator $type
  54                 }
  55                 default {
  56                         puts "Unknown method=$method"
  57                 }
  58         }
  59 }
  60
  61 proc error_badproc {} {
  62         return [list missing bracket here
  63 }