tests/bugs/moddata_1/bug20524

   1 puts "========================"
   2 puts "OCC20524"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # Wrong intersection
   7 #######################################################################
   8
   9 set BugNumber OCC20524
  10
  11 restore [locate_data_file OCC20524-surf1.draw] surf1
  12 restore [locate_data_file OCC20524-surf2.draw] surf2
  13
  14 intersect result surf1 surf2
  15
  16 set che [whatis result]
  17 if { ![regexp {3d curve} $che] } {
  18     puts "Faulty ${BugNumber}: command INTERSECT works wrongly"
  19 } else {
  20   puts "${BugNumber} OK : command INTERSECT works properly"
  21 }
  22