[occt.git] / tests / demo / draw / binpersist_2

# test binsave and binrestore commands

pload TOPTEST

set file $imagedir/${casename}.bin

restore [locate_data_file bug23849_segment_2.brep] b

if [regexp "Cannot write to the file $file" [binsave b $file]] {
  puts "Error: binsave"
} elseif [regexp "Cannot read from the file $file" [binrestore $file bb]] {
  puts "Error: binrestore"
} else {
  file delete $file
  if {[bounding -s b -dump] != [bounding -s bb -dump]} {
    puts "Error: restored shape has another bounding box"
  }
  checkshape bb
  checknbshapes bb -ref [nbshapes b]
  checkprops bb -l 7703.49
  checkprops bb -s 10678.2
  checkprops bb -v 67245
}

puts "TEST COMPLETED"
Commit	Line	Data
745c1386	1	# test binsave and binrestore commands
	2
	3	pload TOPTEST
	4
c9ebb2dd	5	set file $imagedir/${casename}.bin
745c1386	6
	7	restore [locate_data_file bug23849_segment_2.brep] b
	8
	9	if [regexp "Cannot write to the file $file" [binsave b $file]] {
	10	puts "Error: binsave"
	11	} elseif [regexp "Cannot read from the file $file" [binrestore $file bb]] {
	12	puts "Error: binrestore"
	13	} else {
	14	file delete $file
1a0339b4	15	if {[bounding -s b -dump] != [bounding -s bb -dump]} {
745c1386	16	puts "Error: restored shape has another bounding box"
	17	}
	18	checkshape bb
	19	checknbshapes bb -ref [nbshapes b]
	20	checkprops bb -l 7703.49
	21	checkprops bb -s 10678.2
	22	checkprops bb -v 67245
	23	}
	24
	25	puts "TEST COMPLETED"