[occt.git] / tests / bugs / fclasses / bug983

puts "================"
puts "OCC983"
puts "================"
puts ""
#######################################################################################
# LDOM xml parser does not take into account "&amp;" xml entity.
#######################################################################################

pload QAcommands

set list [OCC983 [locate_data_file OCC983.xml]]

if { [regexp "Document parsed" $list] == 1 } {
    if {[lsearch -exact ${list} "&View"] != -1 } {
	puts "OCC983: OK"
    } elseif {[lsearch -exact ${list} "&amp;View"] != 0 } {
	puts "OCC983: Error"
    } else {
	puts "OCC983: Error ; bad input file."
    }
} else {
    puts "OCC983: Error ; document not parsed"
}
Commit	Line	Data
61c421bf	1	puts "================"
	2	puts "OCC983"
	3	puts "================"
	4	puts ""
	5	#######################################################################################
	6	# LDOM xml parser does not take into account "&" xml entity.
	7	#######################################################################################
	8
	9	pload QAcommands
	10
	11	set list [OCC983 [locate_data_file OCC983.xml]]
	12
	13	if { [regexp "Document parsed" $list] == 1 } {
	14	if {[lsearch -exact ${list} "&View"] != -1 } {
	15	puts "OCC983: OK"
	16	} elseif {[lsearch -exact ${list} "&View"] != 0 } {
	17	puts "OCC983: Error"
	18	} else {
	19	puts "OCC983: Error ; bad input file."
	20	}
	21	} else {
	22	puts "OCC983: Error ; document not parsed"
	23	}
	24