0027901: Resource_Manager creates directory with insufficient permissions
[occt.git] / tests / bugs / fclasses / bug983
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