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 | |