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 |
caee80f3 |
17 | XProgress -tclOutput |
7faaccfd |
18 | XProgress -t |
19 | set List1 [fixshape result a] |
20 | puts "----------------------" |
21 | XProgress +t |
22 | set List2 [fixshape result a] |
23 | |
24 | set status 0 |
25 | |
26 | if { ${List1} != ${List2}} { |
27 | set status 0 |
28 | } else { |
29 | set status 1 |
30 | } |
31 | |
32 | if { [ regexp {Progress:} $List2 ] } { |
33 | puts "${BugNumber} OK" |
34 | set status 0 |
35 | } else { |
36 | puts "${BugNumber} Faulty" |
37 | set status 1 |
38 | } |
39 | |
40 | if { $status != 0 } { |
41 | puts "Faulty $BugNumber" |
42 | } else { |
43 | puts "OK $BugNumber" |
44 | } |
7faaccfd |
45 | |
5747059b |
46 | checkview -display result -3d -path ${imagedir}/${test_image}.png |
47 | checkprops result -s 7.46496e+06 |