Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug300
1
2 puts "================"
3 puts "OCC300"
4 puts "================"
5 puts ""
6 #################################################
7 ## Compsolids have no volume. #2432(SAM1380)
8 #################################################
9
10 restore [locate_data_file OCC300.brep] result
11
12 set che [checkshape result]
13 if { [regexp {Faulty} $che] == 1 } {
14     puts "Faulty OCC300: Source shape is invalid. It was detected by Checkshape command"
15     puts "Body of the script was NOT executed"
16 } else {
17     puts "OCC300 OK: Source shape is valid"
18
19     set props [vprops result]
20     set list [split ${props}]
21     set listLength [llength ${list}]
22     if { ${listLength} < 5 } {
23         puts "OCC300 - Error : listLength= ${listLength}"
24     }
25
26     regexp {Mass +: +([-0-9.+eE]+)} $props full volume
27     set maxdelta 0.000001
28     if { ${volume} < ${maxdelta} } then {
29         puts "OCC300 - Error "
30     } else {
31         puts "OCC300 - OK"
32     }
33     puts "Volume = ${volume}"
34 }
35
36 set square 750
37 set 2dviewer 0