tests/bugs/caf/bug23864

   1 puts "============"
   2 puts "OCC23864"
   3 puts "============"
   4 puts ""
   5 ###################################################################################################################
   6 # An & symbol is read incorrectly from a XML Ocaf file
   7 ###################################################################################################################
   8
   9 #Open an Ocaf XML document
  10 Open [locate_data_file bug23864_testAmp.xml] D
  11
  12 #Get name attribute (containing an & symbol)
  13 GetName D 0:1
  14
  15 #Get an array of strings (containing an & symbol)
  16 set info [GetExtStringArray D 0:1]
  17
  18 if { [regexp "\&" $info] != 1 } {
  19     puts "Error : An \& symbol is read incorrectly from a XML Ocaf file"
  20 } else {
  21     puts "OK : An \& symbol is read correctly from a XML Ocaf file"
  22 }