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