06da7b7e |
1 | puts "============" |
2 | puts "OCC22747" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################### |
6 | # Progress indicator in sewing algorithm |
7 | ########################################################################### |
8 | |
9 | set BugNumber OCC22747 |
10 | |
11 | pload XSDRAW |
12 | |
13 | restore [locate_data_file OCC22765.brep] a |
14 | vinit |
15 | XProgress -t |
16 | set List1 [sewing result 0.1 a] |
17 | if { [string compare $List1 ""] != 0 } { |
18 | puts "Error: XProgress should not have any output in this mode" |
19 | } else { |
20 | puts "Mode -t works properly" |
21 | } |
22 | |
23 | puts "----------------------" |
24 | XProgress +t |
25 | set List2 [sewing result 0.1 a] |
26 | if { [regexp "Progress:" $List2] != 1 } { |
27 | puts "Error: XProgress should have output in this mode" |
28 | } else { |
29 | puts "Mode +t works properly" |
30 | } |
31 | |
32 | set 2dviewer 0 |
33 | |