Modified test case for issue 23753
[occt.git] / tests / bugs / modalg_1 / bug19793_2
1 puts "TODO ?OCC24472 ALL: Error : Result shape is WRONG because it must contains 70 edges instead of 71"
2 puts "TODO ?OCC24472 ALL: Error : Result shape is WRONG because it must contains 139 shapes instead of 140"
3 puts "TODO ?OCC23753 ALL: ERROR: OCC23753 is reproduced."
4 puts "TODO ?OCC23753 ALL: Process killed by CPU limit"
5 puts "TODO ?OCC23753 ALL: TEST INCOMPLETE"
6
7 puts "============"
8 puts "OCC19793"
9 puts "============"
10 puts ""
11 #######################################################################
12 # Fuse problem of symetrical shapes. Appendix for NPAL19789
13 #######################################################################
14
15 cpulimit 1000
16 set BugNumber OCC19793
17
18 puts "Load first shape ..."
19 restore [locate_data_file bug19793_new_shape.brep] b1 
20 puts "Load second shape ..."
21 restore [locate_data_file bug19793_shape.brep] b2 
22
23 puts "Prepare boolean operation ..."
24 dchrono perf_h reset
25 dchrono perf_h start
26 bop b1 b2
27 dchrono perf_h stop
28
29 puts "Start boolean operation ..."
30 bopsection result
31 puts "Finish boolean operation ..."
32
33 set length 17730.1
34
35 set nb_e_good 1190
36 set nb_v_good 68
37 set nb_e_good 70
38 set nb_w_good 0
39 set nb_f_good 0
40 set nb_sh_good 0
41 set nb_sol_good 0
42 set nb_compsol_good 0
43 set nb_compound_good 1
44 set nb_shape_good 139
45
46 # OCC23753 processing
47 # Performance verification of bop operation
48 set chrono_info [dchrono perf_h show]
49 regexp {CPU user time: ([-0-9.+eE]+) seconds} $chrono_info full CPU_time
50 set currentOS $tcl_platform(os)
51 if {[string compare $currentOS "Windows NT"] == 0} {
52   puts "Checking WINDOWS performance..."
53   # Initial CPU_time is 92-94 seconds for Windows
54   if {$CPU_time > 60.} {
55     puts "ERROR: OCC23753 is reproduced."
56     puts "       Low performance: $CPU_time"
57   }
58 }
59 if {[string compare $currentOS "Linux"] == 0} {
60   puts "Checking LINUX performance..."
61   # Initial CPU_time is 287-289 seconds for Linux
62   if {$CPU_time > 100.} {
63     puts "ERROR: OCC23753 is reproduced."
64     puts "       Low performance: $CPU_time"
65   }
66 }
67
68 set 2dviewer 0