0025111: Incomplete section curve between Conical and Toroidal surfaces
[occt.git] / tests / bugs / modalg_4 / bug825
1 puts "TODO OCC12345 ALL: Faulty OCC825"
2 puts "TODO OCC12345 ALL: Error : The command is not valid. The square is"
3
4 pload QAcommands
5
6 puts "============"
7 puts "OCC825"
8 puts "============"
9 puts ""
10 ######################################
11 ## BRepAlgoAPI_Cut fails on sphere and b-spline face
12 ######################################
13 ## (old topology)
14 #####################################
15
16 if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2 0] } ] } {
17     puts "Faulty OCC825"
18 } else {
19     if { [regexp {FAILED} $info_result] } {
20         puts "Faulty OCC825"
21     }
22
23     set ExplodeList [explode res1]
24     if {[llength ${ExplodeList}] < 1} {
25         puts "Faulty OCC825"
26     }
27
28     set ExplodeList [explode res2]
29     if {[llength ${ExplodeList}] < 1} {
30         puts "Faulty OCC825"
31     }
32     checkshape res1
33
34     set nbFace_exp 2
35     set nbShell_exp 1
36     set nbSolid_exp 1
37     set nbCompSolid_exp 0
38     set nbCompound_exp 1
39     set nbShape_exp 15
40         
41     set nb_info [nbshapes res1]
42     regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_face
43     regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_shell
44     regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_solid
45     regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nbCompSolid
46     regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
47     regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_Shape
48         
49     if { $nb_face != $nbFace_exp } {
50       puts [format "Faulty : result must contain %s FACE(S), but it contains %s only." $nbFace_exp $nb_face]
51     }
52
53     if { $nb_shell != $nbShell_exp } {
54       puts [format "Faulty : result must contain %s SHELL(S), but it contains %s only." $nbShell_exp $nb_shell]
55     }
56     
57     if { $nb_solid != $nbSolid_exp } {
58       puts [format "Faulty : result must contain %s SOLID(S), but it contains %s only." $nbSolid_exp $nb_solid]
59     }
60
61     if { $nbCompSolid != $nbCompSolid_exp } {
62       puts [format "Faulty : result must contain %s COMPSOLID(S), but it contains %s only." $nbCompSolid_exp $nbCompSolid]
63     }
64
65     if { $nb_compound != $nbCompound_exp } {
66       puts [format "Faulty : result must contain %s COMPOUND(S), but it contains %s only." $nbCompound_exp $nb_compound]
67     }
68
69     if { $nb_Shape != $nbShape_exp } {
70       puts [format "Faulty : result must contain %s SHAPE(S), but it contains %s only." $nbShape_exp $nb_Shape]
71     }
72
73
74     renamevar res2 result
75 }
76
77 set square 0
78 set 2dviewer 1