tests/bugs/modalg/buc60826

   1 puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60826b.brep could not be found"
   2 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
   3
   4 puts "========================"
   5 puts "BUC60826"
   6 puts "========================"
   7
   8 #restore Model2-a.brep a
   9 restore [locate_data_file BUC60826a.brep] a
  10 checkshape a
  11
  12 # restore Model2-b.brep b
  13 restore [locate_data_file BUC60826b.brep] b
  14 checkshape b
  15
  16 bsection result a b
  17
  18 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
  19
  20 if { $num != 0 } {
  21     puts " Faulty BUC60826 : Result shape is Unclosed !!! "
  22 } else {
  23     puts "BUC60826 OK: Result shape is CORRECT !!! "
  24 }
  25 set length 0
  26 set 2dviewer 0
  27