0031340: LDOM fails to read XML file starting with BOM
[occt.git] / tests / bugs / fclasses / bug31340
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 }