Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add test cleanup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | amg-string-insert |
| Files: | files | file ages | folders |
| SHA1: |
5f8c346dfbd72c2bc6f57b496ffe3538 |
| User & Date: | andy 2017-08-20 20:11:43 |
Context
|
2017-08-30
| ||
| 15:20 | Rename TclStringReplace() to Tcl_StringReplace() and add to the stubs table. Documentation not yet ... check-in: 678e846973 user: andy tags: amg-string-insert | |
|
2017-08-20
| ||
| 20:11 | Add test cleanup check-in: 5f8c346dfb user: andy tags: amg-string-insert | |
| 19:57 | Add tests to exercise almost every line of TclStringReplace(). The one line not being exercised is ... check-in: eb2821be09 user: andy tags: amg-string-insert | |
Changes
Changes to tests/string.test.
| ︙ | ︙ | |||
2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 |
} 0123_
test string-30.25 {string insert, neither byte array nor Unicode} {
tcl::string::insert [makeList a b c] 1 zzzzzz
} {azzzzzz b c}
# cleanup
rename MemStress {}
catch {rename foo {}}
::tcltest::cleanupTests
return
# Local Variables:
# mode: tcl
# End:
| > > > > | 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 |
} 0123_
test string-30.25 {string insert, neither byte array nor Unicode} {
tcl::string::insert [makeList a b c] 1 zzzzzz
} {azzzzzz b c}
# cleanup
rename MemStress {}
rename makeByteArray {}
rename makeUnicode {}
rename makeList {}
rename makeShared {}
catch {rename foo {}}
::tcltest::cleanupTests
return
# Local Variables:
# mode: tcl
# End:
|