[occt.git] / tests / bugs / demo / bug25344_4

puts "========"
puts "OCC25344"
puts "========"
puts ""
#######################################################
# Draw variables do not follow the scope of TCL level
#######################################################

box a 1 1 1

set filename "box file.brep"

if [catch {save a $filename}] {
  puts "ERROR: save failure"
} else {
  if ![file exists $filename] {
    puts "ERROR: file \"$filename\" is not created"
  } else {
    if [catch {restore $filename b}] {
      puts "ERROR: restore of file \"$filename\" is failure"
    } else {
      if {[dtyp a] != [dtyp b]} {
        puts "ERROR: types of shape and its restored copy do not equal"
      }
    }
    file delete $filename
  }
}
Commit	Line	Data
191082ac	1	puts "========"
	2	puts "OCC25344"
	3	puts "========"
	4	puts ""
	5	#######################################################
	6	# Draw variables do not follow the scope of TCL level
	7	#######################################################
	8
	9	box a 1 1 1
	10
	11	set filename "box file.brep"
	12
	13	if [catch {save a $filename}] {
	14	puts "ERROR: save failure"
	15	} else {
	16	if ![file exists $filename] {
	17	puts "ERROR: file \"$filename\" is not created"
	18	} else {
	19	if [catch {restore $filename b}] {
	20	puts "ERROR: restore of file \"$filename\" is failure"
	21	} else {
	22	if {[dtyp a] != [dtyp b]} {
	23	puts "ERROR: types of shape and its restored copy do not equal"
	24	}
	25	}
	26	file delete $filename
	27	}
	28	}