Adding test cases from chl grid
[occt.git] / tests / bugs / xde / bug21046
1 puts "============"
2 puts "OCC21046"
3 puts "============"
4 puts ""
5 #######################################################################
6 # XShow raises an exception
7 #######################################################################
8
9 pload DCAF
10
11 set BugNumber OCC21046
12
13 box B 100 100 100
14 XNewDoc D
15 SetShape D 0:1 B
16 XShow D 0:1
17 if [catch { XShow D 0:1 } ] {
18   puts "Faulty ${BugNumber} : XShow is wrong"
19 } elseif [catch { vmoveto 10 10 } ] {
20   puts "Faulty ${BugNumber} : XShow is wrong"
21 } else {
22   puts "OK ${BugNumber}"
23 }