Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug49_1
1
2 puts "========"
3 puts "OCC49"
4 puts "========"
5
6 pload QAcommands
7
8 pcylinder c 10 20
9
10 set result [OCC49 c]
11
12 if {$result == 1} {
13    puts "OCC49: OK"
14 } else {
15    puts "Error : OCC49"
16 }
17
18 set 2dviewer 0