Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug49_2
1
2 puts "========"
3 puts "OCC49"
4 puts "========"
5
6 pload QAcommands
7
8 pcylinder c 10 20
9 box b 10 10 10
10 bcut b_c_cut b c
11 checkshape b_c_cut
12
13 set result [OCC49 b_c_cut]
14
15 if {$result == 1} {
16    puts "Error : OCC49"
17 } else {
18    puts "OCC49: OK"
19 }
20
21 set 2dviewer 0