tests/bugs/heal/bug25634

   1 puts "============"
   2 puts "OCC25634"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Checking of compliance of vertices and pcurve fails
   7 ######################################################
   8
   9 restore [locate_data_file bug25634_shape3.brep] s
  10
  11 explode s e
  12
  13 set info [checkedge s_1 s]
  14
  15 # Resume
  16 puts ""
  17 if { [regexp {Edge seems OK.} ${info}] } {
  18    puts "OK: Checking is good"
  19 } else {
  20    puts "Error: Checking is bad"
  21 }