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