bbd04806 |
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 | |