0025748: Parallel version of progress indicator
[occt.git] / tests / bugs / modalg_5 / bug22747
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 DRAW 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 checkmaxtol result -ref 1.0000280013370991e-005
33 checknbshapes result -shell 1
34 checkfreebounds result 456
35
36 checkview -display result -2d -path ${imagedir}/${test_image}.png
37