tests/bugs/heal/bug23944

   1 puts "============"
   2 puts "OCC23944"
   3 puts "============"
   4 puts ""
   5 ###################################################
   6 ## Typo in ShapeCustom_RestrictionParameters leading to wrong approximation results
   7 ###################################################
   8
   9 set BugNumber OCC23944
  10
  11 restore [locate_data_file bug23944_s.draw] s
  12
  13 mkface f s
  14
  15 set info [bsplres result f 1e-4 1e-9 15 100 C1 C2 0 1]
  16
  17 # Resume
  18 puts ""
  19 if { [regexp {Debug mode} [dversion]] } {
  20    if { [regexp {Surface is aproximated with continuity 0} $info] } {
  21       puts "OK ${BugNumber}"
  22    } else {
  23       puts "Faulty ${BugNumber}"
  24    }
  25 } else {
  26    puts "Test for debug mode only"
  27 }