Adjusting testing cases for current state of OCCT
[occt.git] / tests / heal / surface_to_revolution_advanced / end
CommitLineData
c2a0f481 1puts [DT_ShapeConvertRev result a 1 1]
2
3set expsh [expshape result 0 0]
4set nb_plane 0
5set nb_other_surf 0
6set nb_curve 0
7set nb_pcurve 0
8regexp {Number +of +Planes +- +([-0-9.+eE]+)} $expsh full nb_plane
9regexp {Number +of +other +surfaces +- +([-0-9.+eE]+)} $expsh full nb_other_surf
10regexp {Number +of +other +curves +- +([-0-9.+eE]+)} $expsh full nb_curve
11regexp {Number +of +other +pcurves +- +([-0-9.+eE]+)} $expsh full nb_pcurve
12if { $nb_plane != 0 || $nb_other_surf != 0 || $nb_curve != 0 || $nb_pcurve != 0} {
13 puts "Error : shape result is not correct"
14}
15regexp {Mass +: +([-0-9.+eE]+)} [sprops a] full mass
16regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
17
18if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
19 puts "Error : The square of result shape is $m"
20} else {
21 puts "Squares of shapes a and result is equal"
22}
23