0025111: Incomplete section curve between Conical and Toroidal surfaces
[occt.git] / tests / bugs / modalg_4 / bug825
CommitLineData
352ffd73 1puts "TODO OCC12345 ALL: Faulty OCC825"
2puts "TODO OCC12345 ALL: Error : The command is not valid. The square is"
f1aa2b62 3
4pload QAcommands
5
6puts "============"
7puts "OCC825"
8puts "============"
9puts ""
10######################################
11## BRepAlgoAPI_Cut fails on sphere and b-spline face
12######################################
352ffd73 13## (old topology)
14#####################################
f1aa2b62 15
352ffd73 16if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2 0] } ] } {
17 puts "Faulty OCC825"
f1aa2b62 18} else {
352ffd73 19 if { [regexp {FAILED} $info_result] } {
191478a5 20 puts "Faulty OCC825"
f1aa2b62 21 }
352ffd73 22
23 set ExplodeList [explode res1]
f1aa2b62 24 if {[llength ${ExplodeList}] < 1} {
191478a5 25 puts "Faulty OCC825"
f1aa2b62 26 }
352ffd73 27
28 set ExplodeList [explode res2]
f1aa2b62 29 if {[llength ${ExplodeList}] < 1} {
191478a5 30 puts "Faulty OCC825"
f1aa2b62 31 }
352ffd73 32 checkshape res1
191478a5 33
10ee9976 34 set nbFace_exp 2
35 set nbShell_exp 1
36 set nbSolid_exp 1
191478a5 37 set nbCompSolid_exp 0
38 set nbCompound_exp 1
10ee9976 39 set nbShape_exp 15
191478a5 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
352ffd73 74 renamevar res2 result
f1aa2b62 75}
76
77set square 0
352ffd73 78set 2dviewer 1