Adding test cases from chl grid
[occt.git] / tests / bugs / xde / bug1540
1 puts "================"
2 puts "OCC1540"
3 puts "================"
4 puts ""
5 ##########################################################
6 # exception while writing step file with invisible layer
7 ##########################################################
8
9 set BugNumber OCC1540
10
11 XNewDoc D
12 box b 10 10 10
13 XAddShape D b 1
14 XAddLayer D invis
15 XSetLayer D b invis
16 XSetVisibility D invis 0
17
18 set status [ catch { WriteStep D $imagedir/${test_image}.stp } ]
19
20 if  { $status == 0 } {
21     puts "OK ${BugNumber}"
22 } else {
23     puts "Faulty ${BugNumber}"
24 }
25