tests/bugs/fclasses/bug983

   1 puts "================"
   2 puts "OCC983"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # LDOM xml parser does not take into account "&amp;" 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} "&amp;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