[occt.git] / tests / bugs / caf / bug22788_2

puts "================"
puts "OCC22788"
puts "================"
puts ""
#######################################################################################
# Exception during closing of document due to corrupted memory.
######################################################################################

set BugNumber OCC22788

set aFile [locate_data_file OCC22788.std]

Open ${aFile} D

GetShape D 0:2 result
smallview
fit

set catch_status 0
if { [catch {Close D} catch_result] } {
  set catch_status 1
}

if { ${catch_status} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}

set square 220000
set 2dviewer 0
Commit	Line	Data
809eca9d	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.std]
	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