Commit | Line | Data |
---|---|---|
8f34d47e | 1 | puts "================" |
2 | puts "0031340: LDOM fails to read XML file starting with BOM" | |
3 | puts "================" | |
4 | puts "" | |
5 | ||
6 | pload QAcommands | |
7 | ||
8 | set list [OCC983 [locate_data_file bug31340.xml]] | |
9 | ||
10 | if { [regexp "Document parsed" $list] == 1 } { | |
11 | if {[lsearch -exact ${list} "UTF-8"] != -1 } { | |
12 | puts "OK" | |
13 | } else { | |
14 | puts "Error : BOM was not found in $list" | |
15 | } | |
16 | } else { | |
17 | puts "Error : document not parsed" | |
18 | } |