1 puts "================"
2 puts "0031340: LDOM fails to read XML file starting with BOM"
3 puts "================"
8 set list [OCC983 [locate_data_file bug31340.xml]]
10 if { [regexp "Document parsed" $list] == 1 } {
11 if {[lsearch -exact ${list} "UTF-8"] != -1 } {
14 puts "Error : BOM was not found in $list"
17 puts "Error : document not parsed"