Adding test cases from chl grid
[occt.git] / tests / bugs / modalg / bug23029_1
1 puts "============"
2 puts "OCC23029"
3 puts "============"
4 puts ""
5 #######################################################################
6 # split shape algorithm works incorrectly in some cases
7 #######################################################################
8
9 set BugNumber OCC23029
10
11 catch { pload XDE }
12
13 testreadstep [locate_data_file OCC23029-ProblemF.stp] a
14 restore [locate_data_file OCC23029-TempW.brep] t 
15
16 checkshape a
17 explode a f
18 splitshape result a a_1 t
19
20 set square 215.198
21
22 set nb_v_good 19
23 set nb_e_good 21
24 set nb_w_good 2
25 set nb_f_good 2
26 set nb_sh_good 1
27 set nb_sol_good 0
28 set nb_compsol_good 0
29 set nb_compound_good 0
30 set nb_shape_good 45
31
32 set CheckShape_status 0
33
34 set ll [ llength [explode result f2 ] ]
35
36 if { $ll != 2 } {
37     set CheckShape_status 1
38 }
39
40 # Resume
41 puts ""
42 if { ${CheckShape_status} != 0 } {
43    puts "Faulty ${BugNumber}"
44 } else {
45    puts "OK ${BugNumber}"
46 }
47
48 vinit
49 vsetdispmode 1
50 vdisplay result
51 vfit
52
53 vmoveto 252 289
54
55 set only_screen 1
56