tests/bugs/modalg/bug6554

   1 puts "============"
   2 puts "OCC6554"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Intersection shell-plane gives a disconnected set of edges
   7 ######################################################
   8
   9 set BugNumber OCC6554
  10
  11 restore [locate_data_file OCC6554-shell.brep] sh
  12 restore [locate_data_file OCC6554-face.brep] f
  13
  14 decho off
  15 set che_sh [checkshape sh]
  16 set che_f [checkshape f]
  17 decho on
  18 if { [regexp {Faulty} $che_sh] } {
  19     puts "Faulty ${BugNumber} : checkshape is wrong for sh"
  20 }
  21
  22 if { [regexp {Faulty} $che_f] } {
  23     puts "Faulty ${BugNumber} : checkshape is wrong for f"
  24 }
  25
  26 bsection result sh f -a
  27
  28 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full Vertices
  29
  30 set good_Vertices 2
  31
  32 if { ${Vertices} != ${good_Vertices} } {
  33     puts "Faulty ${BugNumber}"
  34 } else {
  35     puts "OK ${BugNumber}"
  36 }
  37
  38 set length 110.045
  39 set 2dviewer 2