tests/bugs/caf/bug23912

   1 puts "============"
   2 puts "OCC23912"
   3 puts "============"
   4 puts ""
   5 ###################################################################################################################
   6 # TDataStd_ExtStringArray::Value() returns a copy of TCollection_ExtededString, but it might return a reference
   7 ###################################################################################################################
   8
   9 NewDocument D
  10 SetExtStringArray D 0:1 0 1 5 "A" "B" "C" "D" "E"
  11 set info [GetExtStringArray D 0:1]
  12
  13 if { [regexp "A B C D E" $info] != 1 } {
  14     puts "Error : function returns wrong value"
  15 } else {
  16     puts "OK : function works properly"
  17 }
  18
  19
  20
  21
  22
  23
  24