diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-13 13:48:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-13 13:48:53 (GMT) |
| commit | 28ddee7d1816b60b019c72adc2ba4a4171a01d3b (patch) | |
| tree | e054099d43a115f99c9a50a239149b0f82961104 | |
| parent | 09b6123a09dedecf60d35a3306b9bd68702304e5 (diff) | |
| parent | 0b6db319f0ee6a542c2d1ad6f46b587211f882d2 (diff) | |
| download | tcl-28ddee7d1816b60b019c72adc2ba4a4171a01d3b.zip tcl-28ddee7d1816b60b019c72adc2ba4a4171a01d3b.tar.gz tcl-28ddee7d1816b60b019c72adc2ba4a4171a01d3b.tar.bz2 | |
Merge-mark 8.6. Missing/superflouous testConstraint
| -rw-r--r-- | tests/append.test | 3 | ||||
| -rw-r--r-- | tests/parseOld.test | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/tests/append.test b/tests/append.test index 0708fc5..c0c0cce 100644 --- a/tests/append.test +++ b/tests/append.test @@ -17,7 +17,10 @@ if {"::tcltest" ni [namespace children]} { } ::tcltest::loadTestedCommands unset -nocomplain x +catch [list package require -exact tcl::test [info patchlevel]] +testConstraint testbytestring [llength [info commands testbytestring]] + test append-1.1 {append command} { unset -nocomplain x list [append x 1 2 abc "long string"] $x diff --git a/tests/parseOld.test b/tests/parseOld.test index 853f5b5..44aa5d1 100644 --- a/tests/parseOld.test +++ b/tests/parseOld.test @@ -22,7 +22,6 @@ if {"::tcltest" ni [namespace children]} { catch [list package require -exact tcl::test [info patchlevel]] testConstraint testwordend [llength [info commands testwordend]] -testConstraint testbytestring [llength [info commands testbytestring]] # Save the argv value for restoration later set savedArgv $argv |