diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-17 13:01:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-17 13:01:46 (GMT) |
| commit | f2f4614f5cd6f0493ed0e46688b28017c8fc93b9 (patch) | |
| tree | 40923650533b3512993d27cb2b99c45a5e854a22 /tests/lrange.test | |
| parent | caa904131ac249bfd2991302520766b895bcf9a7 (diff) | |
| download | tcl-f2f4614f5cd6f0493ed0e46688b28017c8fc93b9.zip tcl-f2f4614f5cd6f0493ed0e46688b28017c8fc93b9.tar.gz tcl-f2f4614f5cd6f0493ed0e46688b28017c8fc93b9.tar.bz2 | |
Add missing constraints to test-cases
Diffstat (limited to 'tests/lrange.test')
| -rw-r--r-- | tests/lrange.test | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/tests/lrange.test b/tests/lrange.test index 5bb4ee9..d5676ad 100644 --- a/tests/lrange.test +++ b/tests/lrange.test @@ -134,15 +134,19 @@ test lrange-3.7b.2 {not compiled on empty not list object, 2nd regression test, list [$cmd {} 0 1] [$cmd [lindex a -1] 0 1] [$cmd [set a {}] 0 1] \ [$cmd {} 0-1 end+1] [$cmd [lindex a -1] 0-1 end+1] [$cmd $a 0-1 end+1] } [lrepeat 6 {}] -test lrange-3.7c.2 {compiled on empty pure bytes object, 2nd regression test, bug [cc1e91552c]} { +test lrange-3.7c.2 {compiled on empty pure bytes object, 2nd regression test, bug [cc1e91552c]} -constraints { + testpurebytesobj +} -body { list [lrange [testpurebytesobj] 0 1] [lrange [testpurebytesobj { }] 0 1] [lrange [set a [testpurebytesobj {}]] 0 1] \ [lrange [testpurebytesobj] 0-1 end+1] [lrange [testpurebytesobj { }] 0-1 end+1] [lrange $a 0-1 end+1] -} [lrepeat 6 {}] -test lrange-3.7d.2 {not compiled on empty pure bytes object, 2nd regression test, bug [cc1e91552c]} { +} -result [lrepeat 6 {}] +test lrange-3.7d.2 {not compiled on empty pure bytes object, 2nd regression test, bug [cc1e91552c]} -constraints { + testpurebytesobj +} -body { set cmd lrange list [$cmd [testpurebytesobj] 0 1] [$cmd [testpurebytesobj { }] 0 1] [$cmd [set a [testpurebytesobj {}]] 0 1] \ [$cmd [testpurebytesobj] 0-1 end+1] [$cmd [testpurebytesobj { }] 0-1 end+1] [$cmd $a 0-1 end+1] -} [lrepeat 6 {}] +} -result [lrepeat 6 {}] # cleanup |