b858a698 |
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 | } |