0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug22788_2
1 puts "================"
2 puts "OCC22788"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # Exception during closing of document due to corrupted memory.
7 ######################################################################################
8
9 set BugNumber OCC22788
10
11 set aFile [locate_data_file OCC22788.cbf]
12
13 Open ${aFile} D
14
15 GetShape D 0:2 result
16 smallview
17 fit
18
19 set catch_status 0
20 if { [catch {Close D} catch_result] } {
21   set catch_status 1
22 }
23
24 if { ${catch_status} != 0 } {
25    puts "Faulty ${BugNumber}"
26 } else {
27    puts "OK ${BugNumber}"
28 }
29
30 set square 220000
31 set 2dviewer 0