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

puts "==========="
puts "OCC27187"
puts "==========="
puts ""
#################################
# XmlMFunction_ScopeDriver fail to read and write function label including 0 tag in label path.
#################################

NewDocument Doc XmlOcaf
# label that contains "0" tag not only in "Root"
set Lab 0:1:4:9999:0:1:4:2001:4:2001:4:1:4:1001:4:1001
Label Doc $Lab
SetReference Doc 0:1 $Lab

set aFileName ${imagedir}/${casename}_doc.xml
SaveAs Doc ${aFileName}
Close Doc

# check that the reference is correctly restored
Open ${aFileName} Doc
if {[GetReference Doc 0:1] != $Lab} {
   puts "Error: restored Reference attribute value is bad '[GetReference Doc 0:1]'"
}
Close Doc
Commit	Line	Data
ec2039e9	1	puts "==========="
	2	puts "OCC27187"
	3	puts "==========="
	4	puts ""
	5	#################################
	6	# XmlMFunction_ScopeDriver fail to read and write function label including 0 tag in label path.
	7	#################################
	8
	9	NewDocument Doc XmlOcaf
	10	# label that contains "0" tag not only in "Root"
	11	set Lab 0:1:4:9999:0:1:4:2001:4:2001:4:1:4:1001:4:1001
	12	Label Doc $Lab
	13	SetReference Doc 0:1 $Lab
	14
	15	set aFileName ${imagedir}/${casename}_doc.xml
	16	SaveAs Doc ${aFileName}
	17	Close Doc
	18
	19	# check that the reference is correctly restored
	20	Open ${aFileName} Doc
	21	if {[GetReference Doc 0:1] != $Lab} {
	22	puts "Error: restored Reference attribute value is bad '[GetReference Doc 0:1]'"
	23	}
	24	Close Doc