43c8661e |
1 | puts "============" |
2 | puts "0030536: Foundation Classes - TCollection_ExtendedString::StartsWith() and EndsWith() have a mistake" |
3 | puts "============" |
4 | |
5 | pload QAcommands |
6 | |
7 | set ret1 [QAStartsWith hello help] |
8 | if { ${ret1} == "Yes" } { |
9 | puts "Error" |
10 | } |
11 | |
12 | set ret2 [QAStartsWith hello he] |
13 | if { ${ret2} == "No" } { |
14 | puts "Error" |
15 | } |
16 | |
17 | set ret3 [QAEndsWith hello ll] |
18 | if { ${ret3} == "Yes" } { |
19 | puts "Error" |
20 | } |
21 | |
22 | set ret4 [QAEndsWith hello lo] |
23 | if { ${ret4} == "No" } { |
24 | puts "Error" |
25 | } |