Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug318
1
2 puts "========================"
3 puts " OCC318 "
4 puts "========================"
5 puts ""
6 ##################################################
7 ## Checkshape works wrong with Semi-Infinite Prism (s)
8 ##################################################
9
10 box mb -0.5 -0.5 -0.5 1 1 1 
11 explode mb F 
12 prism result mb_1 1 0 0 SemiInf 
13
14 set che [checkshape result]
15 if { [regexp {Faulty} $che] == 1} {
16     puts "Faulty OCC318: Result shape is invalid. It was detected by Checkshape command"
17 } else {
18     puts "OCC318 OK: Result shape is valid"
19 }
20
21 set square 8e+100
22 set 2dviewer 0