tests/bugs/vis/bug153

   1 puts "========================"
   2 puts "OCC153"
   3 puts "========================"
   4
   5 ##########################################
   6 ####### Draw command v2dsetbg hangs up the application
   7 ##########################################
   8
   9 v2dinit
  10 set j 1
  11 repeat 23 {
  12         if [catch { v2dsetbg [locate_data_file OCC153.gif] } res] {
  13            puts [format "%s  ) Faulty OCC153: here is problem with v2dsetbg command" $j]
  14         } else {
  15            puts [format "%s  )  : OCC153 OK" $j]
  16         }
  17         incr j
  18         }