Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_4 / bug817_3
CommitLineData
352ffd73 1pload QAcommands
2
3puts "============"
4puts "OCC817"
5puts "============"
6puts ""
7#############################
8## Bad results of BRepAlgoAPI_Common
9#############################
10
11set InfoList [OCC817 result 30]
12
13
14set OriginalVolume 0
15regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume
16
17set AccumulatedMeshedVolume 0
18regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume
19
20set percent_max 0.1
21set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]
22
23if {${percent} > ${percent_max}} {
24 puts "OCC817: Error"
25} else {
26 puts "OCC817: OK"
27}
28set 2dviewer 0
29set square 6000