tests/bugs/moddata_1/bug13904

   1 puts "==========="
   2 puts "OCC13904"
   3 puts "==========="
   4 ######################################################
   5 # Exception during "filling" operation
   6 ######################################################
   7
   8 set BugNumber OCC13904
   9
  10 circle c 0 100 100 0 1 1 50
  11 ellipse el 0 0 0 0 1 1 100 50
  12
  13 set  mistake 0
  14 if [catch { appsurf result c el } res] {
  15   set  mistake 1
  16   puts "Faulty ${BugNumber}: filling problem"
  17 } else {
  18   puts "Filling ${BugNumber}  OK"
  19   set What [whatis result]
  20   if { [regexp "surface" $What] != 1 } {
  21     set  mistake 1
  22   } else {
  23     set  mistake 0
  24   }
  25 }
  26
  27 # Resume
  28 puts ""
  29 if { ${mistake} != 0 } {
  30    puts "Faulty ${BugNumber}"
  31 } else {
  32    puts "OK ${BugNumber}"
  33 }