tests/bugs/modalg_5/bug25184

   1 puts "================"
   2 puts "OCC25184"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Non-deterministic order of wires in the result of General Fuse
   7 #######################################################################
   8
   9 restore [locate_data_file bug25184_Input_0.brep] b0
  10 restore [locate_data_file bug25184_Input_1.brep] b1
  11 restore [locate_data_file bug25184_Input_2.brep] b2
  12 restore [locate_data_file bug25184_Input_3.brep] b3
  13 restore [locate_data_file bug25184_Input_4.brep] b4
  14
  15 bclearobjects
  16 bcleartools
  17 baddobjects b0 b1 b2 b3 b4
  18
  19 bfillds
  20
  21 bbuild r
  22 explode r w
  23 regexp {Mass +: +([-0-9.+eE]+)} [lprops r_43] full m0
  24 puts "Length(0) = $m0"
  25
  26 set N 10
  27 for {set i 1} {$i < $N} {incr i} {
  28   bbuild r
  29   explode r w
  30   regexp {Mass +: +([-0-9.+eE]+)} [lprops r_43] full mi
  31   puts "Length($i) = $mi"
  32   if { $mi != $m0 } {
  33     set N 0
  34     break
  35   }
  36 }
  37 if { $N == 0 } {
  38   puts "Error: Bad order of wires in the result of General Fuse"
  39 } else {
  40   puts "OK: Good order of wires in the result of General Fuse"
  41 }