mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
43c8661e5e
Draw-commands StartsWith and EndsWith are renamed to QAStartsWith and QAEndsWith. The test script bug30536 was corrected.
26 lines
478 B
Plaintext
26 lines
478 B
Plaintext
puts "============"
|
|
puts "0030536: Foundation Classes - TCollection_ExtendedString::StartsWith() and EndsWith() have a mistake"
|
|
puts "============"
|
|
|
|
pload QAcommands
|
|
|
|
set ret1 [QAStartsWith hello help]
|
|
if { ${ret1} == "Yes" } {
|
|
puts "Error"
|
|
}
|
|
|
|
set ret2 [QAStartsWith hello he]
|
|
if { ${ret2} == "No" } {
|
|
puts "Error"
|
|
}
|
|
|
|
set ret3 [QAEndsWith hello ll]
|
|
if { ${ret3} == "Yes" } {
|
|
puts "Error"
|
|
}
|
|
|
|
set ret4 [QAEndsWith hello lo]
|
|
if { ${ret4} == "No" } {
|
|
puts "Error"
|
|
}
|