[occt.git] / tests / bugs / step / bug32679

puts "===================================="
puts "0032679: Data Exchange - STEP writer loses assembly instance name"
puts "===================================="
puts ""

pload OCAF

proc CheckName {doc1 doc2 lab} {
  upvar $doc1 d1 $doc2 d2
  puts "Checking name [set name1 [GetName d1 $lab]]"
  if [catch {set name2 [GetName d2 $lab]}] {
    puts "Error: name at label $lab is not found"
  }
  if {$name1 != $name2} {
    puts "Error: at label $lab expected name $name1 but found $name2"
  }
}

proc RunTestWithFile {file} {
  puts "Testing file $file"
  XOpen [locate_data_file $file] d1
  set aTmpFile ${::imagedir}/${::casename}_${file}.step
  WriteStep d1 $aTmpFile
  ReadStep  d2 $aTmpFile

  CheckName d1 d2 0:1:1:1:1
  CheckName d1 d2 0:1:1:2:1
  CheckName d1 d2 0:1:1:3:1

  Close d1
  Close d2
  file delete -force $aTmpFile
}

RunTestWithFile as1-no-ass-name.xbf
RunTestWithFile as1-with-ass-name.xbf
Commit	Line	Data
87b7b496	1	puts "===================================="
	2	puts "0032679: Data Exchange - STEP writer loses assembly instance name"
	3	puts "===================================="
	4	puts ""
	5
	6	pload OCAF
	7
	8	proc CheckName {doc1 doc2 lab} {
	9	upvar $doc1 d1 $doc2 d2
	10	puts "Checking name [set name1 [GetName d1 $lab]]"
	11	if [catch {set name2 [GetName d2 $lab]}] {
	12	puts "Error: name at label $lab is not found"
	13	}
	14	if {$name1 != $name2} {
	15	puts "Error: at label $lab expected name $name1 but found $name2"
	16	}
	17	}
	18
	19	proc RunTestWithFile {file} {
87b7b496	20	puts "Testing file $file"
87b7b496	21	XOpen [locate_data_file $file] d1
30fa5f67	22	set aTmpFile ${::imagedir}/${::casename}_${file}.step
	23	WriteStep d1 $aTmpFile
	24	ReadStep d2 $aTmpFile
87b7b496	25
	26	CheckName d1 d2 0:1:1:1:1
	27	CheckName d1 d2 0:1:1:2:1
	28	CheckName d1 d2 0:1:1:3:1
	29
	30	Close d1
	31	Close d2
30fa5f67	32	file delete -force $aTmpFile
87b7b496	33	}
	34
	35	RunTestWithFile as1-no-ass-name.xbf
	36	RunTestWithFile as1-with-ass-name.xbf