0031340: LDOM fails to read XML file starting with BOM
[occt.git] / tests / bugs / fclasses / bug31340
CommitLineData
8f34d47e 1puts "================"
2puts "0031340: LDOM fails to read XML file starting with BOM"
3puts "================"
4puts ""
5
6pload QAcommands
7
8set list [OCC983 [locate_data_file bug31340.xml]]
9
10if { [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}