tests/bugs/heal/bug25823

   1 puts "================"
   2 puts "OCC25823"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Self Intersecting wire translated from STEP file
   7 #######################################################################################
   8
   9 set BugNumber OCC25823
  10
  11 set aFile [locate_data_file bug25823_280612.stp]
  12 stepread $aFile a *
  13 set aLog [checkshape a_1]
  14
  15 if {$aLog == "This shape seems to be valid" } {
  16   puts "OK ${BugNumber}"
  17 } else {
  18   puts "Faulty ${BugNumber}"
  19 }
  20
  21 smallview
  22 fit
  23 checkview -screenshot -2d -path ${imagedir}/${test_image}.png