tests/bugs/modalg/buc60827

   1 puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60827d.brep could not be found"
   2 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
   3
   4 puts "========================"
   5 puts "BUC60827"
   6 puts "========================"
   7
   8 #restore Model3-a.brep a
   9 restore [locate_data_file BUC60827c.brep] a
  10
  11 #restore Model3-b.brep b
  12 restore [locate_data_file BUC60827d.brep] b
  13
  14 set che [checkshape a]
  15 if { [regexp {Faulty} $che ] == 1 } {
  16     puts "Faulty BUC60827 (shape 1): Source shape is invalid. It was detected by Checkshape command"
  17     puts "Body of the script was NOT executed"
  18     renamevar a result
  19 } else {
  20     puts "BUC60827 OK (shape 1): Source shape is valid"
  21
  22     set che [checkshape b]
  23     if { [regexp {Faulty} $che ] == 1 } {
  24         puts "Faulty BUC60827 (shape 2): Source shape is invalid. It was detected by Checkshape command"
  25         puts "Body of the script was NOT executed"
  26         renamevar b result
  27     } else {
  28         puts "BUC60827 OK (shape 2): Source shape is valid"
  29
  30         bsection result a b
  31         set rlen 0
  32         set rlen [llength [explode res v]]
  33         if ([expr $rlen  == 0]) {
  34             puts "Faulty :The result of section is an empty compound."
  35         } else {
  36             distmini d1 res_1 a_1
  37             regexp {([-0-9.+eE]+)$} [dump d1_val] full len1
  38             if ([expr $len1 > 1e-7]) {
  39                 puts "Faulty :The section is incomplite."
  40             } else {
  41                 distmini d2 res_2 a_2
  42                 regexp {([-0-9.+eE]+)$} [dump d2_val] full len2
  43                 if ([expr $len2 > 1e-7]) {
  44                     puts "Faulty :The section is incomplite."
  45                 }
  46             }
  47         }
  48     }
  49 }
  50
  51 set length 0
  52 set 2dviewer 0