tests/bugs/moddata_2/bug5698

   1 puts "TODO OCC11111 ALL: Faulty OCC5698"
   2
   3 pload QAcommands
   4
   5 puts "============"
   6 puts "OCC5698"
   7 puts "============"
   8 puts ""
   9 ######################################################
  10 # Incorrect result of intersection of a plane and an extrusion surface
  11 ######################################################
  12
  13 set BugNumber OCC5698
  14
  15 restore [locate_data_file OCC5698.brep] s1
  16
  17 set info_result [OCC5698 s1]
  18
  19 set index [string compare ${info_result} "OK\n"]
  20 if {$index != 0} {
  21     puts "Faulty ${BugNumber}"
  22 } else {
  23     puts "OK ${BugNumber}"
  24 }
  25