0025987: Integration part of modified unstable test cases
[occt.git] / tests / bugs / modalg_2 / bug5805_41
1 puts "TODO ?OCC25718 ALL: Error : Result shape is WRONG"
2 puts "TODO ?OCC25718 ALL: Error : The square of result shape is"
3 puts "TODO ?OCC25718 ALL: Faulty OCC5805 : result is not Closed shape"
4 puts "TODO ?OCC25718 ALL: Faulty shapes in variables faulty_1 to faulty_"
5 puts "TODO ?OCC25718 ALL: Error : The command is not valid"
6 puts "TODO ?OCC25718 ALL: result is not a topological shape"
7 puts "TODO ?OCC25718 ALL: TEST INCOMPLETE"
8
9 puts "============"
10 puts "OCC5805"
11 puts "============"
12
13 #######################################################################
14 # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
15 #######################################################################
16
17 set BugNumber OCC5805
18
19 set z1 5
20 set z2 -5
21
22 # beziercurve1
23 beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
24 mkedge e1 bc1
25 wire UpCover e1
26
27 # beziercurve2
28 beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
29 mkedge e2 bc2
30 wire BottomCover e2
31
32 set issolid 1
33 set isruled 1
34 if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
35    puts "Faulty ${BugNumber} : thrusections is wrong"
36    
37 }
38
39 set distance -0.001
40 catch { OFFSETSHAPE $distance {} $calcul $type }
41 # Null result
42
43
44 set square 495.635
45
46 set nb_v_good 2
47 set nb_e_good 3
48 set nb_w_good 3
49 set nb_f_good 3
50 set nb_sh_good 1
51 set nb_sol_good 1
52 set nb_compsol_good 0
53 set nb_compound_good 0
54 set nb_shape_good 13
55
56
57 set index [lsearch [whatis s] Closed]
58 if {$index == -1} {
59   puts "Faulty ${BugNumber} : s is not Closed shape"
60   
61 }
62
63 set index [lsearch [whatis result] Closed]
64 if {$index == -1} {
65   puts "Faulty ${BugNumber} : result is not Closed shape"
66   
67 }
68
69
70 set 2dviewer 0