0024164: Optimization of OCAF document closing
[occt.git] / tests / bugs / caf / bug24164_1
1 pload DCAF
2
3 if { [info exists imagedir] == 0 } {
4     set imagedir .
5 }
6 set BugNumber OCC24164
7
8 #1 open new document
9 NewDocument  D MDTV-Standard
10 UndoLimit D 10 0 0
11 InitLogBook D           
12 AddDriver D Box
13
14 #2 build box
15 NewCommand D
16 set B2 [AddObject D]
17 set F2 [AddFunction D $B2 Box]
18 BoxDX D $B2 190
19 BoxDY D $B2 290
20 BoxDZ D $B2 390
21 ComputeFun D $F2
22 GetShape D $F2:2 Box2
23 NewCommand D
24
25 #3 save shape in the document
26 SaveAs D ${imagedir}/testDoc1.std
27
28 #4 close document
29 set catch_status 0
30 if { [catch {Close D} catch_result] } {
31   set catch_status 1
32 }
33 if { ${catch_status} != 0 } {
34    puts "Faulty ${BugNumber}"
35 } else {
36    puts "OK ${BugNumber}"
37 }
38
39 #5 reopen just saved document with the same name
40 Open ${imagedir}/testDoc1.std D
41 set catch_status 0
42
43 #6 close the document
44 if { [catch {Close D} catch_result] } {
45   set catch_status 1
46 }
47
48 if { ${catch_status} != 0 } {
49    puts "Faulty ${BugNumber}"
50 } else {
51    puts "OK ${BugNumber}"
52 }