tests/heal/begin

   1 if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
   2     pload TOPTEST
   3 }
   4 if { [array get Draw_Groups "Shape Healing"] == "" } {
   5     pload XSDRAW
   6 }
   7 # To prevent loops limit to 5 minutes
   8 cpulimit 300
   9
  10 if { [info exists imagedir] == 0 } {
  11    set imagedir .
  12 }
  13
  14 if { [info exists test_image ] == 0 } {
  15    set test_image photo
  16 }
  17