7faaccfd |
1 | puts "============" |
2 | puts "OCC22746" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################### |
6 | # Progress indicator in ShapeHealing |
7 | ########################################################################### |
8 | |
9 | set BugNumber OCC22746 |
10 | |
11 | set Min_ListLength 11 |
12 | |
13 | catch { pload XSDRAW } |
14 | |
15 | restore [locate_data_file OCC22761-TransmissionTestModel5-notfixed.brep] a |
16 | vinit |
17 | XProgress -t |
18 | set List1 [fixshape result a] |
19 | puts "----------------------" |
20 | XProgress +t |
21 | set List2 [fixshape result a] |
22 | |
23 | set status 0 |
24 | |
25 | if { ${List1} != ${List2}} { |
26 | set status 0 |
27 | } else { |
28 | set status 1 |
29 | } |
30 | |
31 | if { [ regexp {Progress:} $List2 ] } { |
32 | puts "${BugNumber} OK" |
33 | set status 0 |
34 | } else { |
35 | puts "${BugNumber} Faulty" |
36 | set status 1 |
37 | } |
38 | |
39 | if { $status != 0 } { |
40 | puts "Faulty $BugNumber" |
41 | } else { |
42 | puts "OK $BugNumber" |
43 | } |
44 | set 3dviewer 0 |
45 | set square 7.46496e+06 |
46 | |