diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-20 10:01:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-20 10:01:00 (GMT) |
| commit | 91d9bd02c03a78eced672b0b2a078ff91b19d7f3 (patch) | |
| tree | 0c748a615e38621a804752496727f12946074db4 /tests/stringComp.test | |
| parent | 56b69c4e9a3935058b4fc2dedbfe3051b3a154a4 (diff) | |
| parent | 2ab23f61864343e27600fb486ae681e24f1fa8d0 (diff) | |
| download | tcl-91d9bd02c03a78eced672b0b2a078ff91b19d7f3.zip tcl-91d9bd02c03a78eced672b0b2a078ff91b19d7f3.tar.gz tcl-91d9bd02c03a78eced672b0b2a078ff91b19d7f3.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/stringComp.test')
| -rw-r--r-- | tests/stringComp.test | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/tests/stringComp.test b/tests/stringComp.test index 017e768..210f431 100644 --- a/tests/stringComp.test +++ b/tests/stringComp.test @@ -26,7 +26,7 @@ catch [list package require -exact Tcltest [info patchlevel]] # Some tests require the testobj command testConstraint testobj [expr {[info commands testobj] != {}}] - + test stringComp-1.1 {error conditions} { proc foo {} {string gorp a b} list [catch {foo} msg] $msg @@ -677,7 +677,11 @@ test stringComp-11.54 {string match, failure} { } {0 1 1 1 0 0} ## string range -## not yet bc +test stringComp-12.1 {Bug 3588366: end-offsets before start} { + apply {s { + string range $s 0 end-5 + }} 12345 +} {} ## string repeat ## not yet bc @@ -699,8 +703,12 @@ test stringComp-11.54 {string match, failure} { ## string word* ## not yet bc - + # cleanup catch {rename foo {}} ::tcltest::cleanupTests return + +# Local Variables: +# mode: tcl +# End: |