diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-05-13 08:01:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-05-13 08:01:44 (GMT) |
| commit | 2118de7012860722cd64f656d1d4a955a1fad428 (patch) | |
| tree | 9d2ab6847c66de24edcbd6fde86d727437ed0c06 /tests | |
| parent | c2cac5959d1949fd3e19ff977d28c9adfc872466 (diff) | |
| parent | 88a98003bf03a290ae31656870efb11b2588d0cd (diff) | |
| download | tcl-2118de7012860722cd64f656d1d4a955a1fad428.zip tcl-2118de7012860722cd64f656d1d4a955a1fad428.tar.gz tcl-2118de7012860722cd64f656d1d4a955a1fad428.tar.bz2 | |
Merge core-8-6-branch. Eliminate some unnecessary spacing.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/assemble.test | 10 | ||||
| -rw-r--r-- | tests/registry.test | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/tests/assemble.test b/tests/assemble.test index 7c65595..9813545 100644 --- a/tests/assemble.test +++ b/tests/assemble.test @@ -3295,7 +3295,7 @@ test assemble-52.1 {Bug 3154ea2759} { label @okLabel endCatch pop - + beginCatch @badLabel2 push error push testing @@ -3308,7 +3308,7 @@ test assemble-52.1 {Bug 3154ea2759} { label @okLabel2 endCatch pop - + beginCatch @badLabel3 push error push testing @@ -3321,7 +3321,7 @@ test assemble-52.1 {Bug 3154ea2759} { label @okLabel3 endCatch pop - + beginCatch @badLabel4 push error push testing @@ -3334,7 +3334,7 @@ test assemble-52.1 {Bug 3154ea2759} { label @okLabel4 endCatch pop - + beginCatch @badLabel5 push error push testing @@ -3347,7 +3347,7 @@ test assemble-52.1 {Bug 3154ea2759} { label @okLabel5 endCatch pop - + beginCatch @badLabel6 push error push testing diff --git a/tests/registry.test b/tests/registry.test index 0f78212..2072559 100644 --- a/tests/registry.test +++ b/tests/registry.test @@ -19,7 +19,7 @@ testConstraint reg 0 if {[testConstraint win]} { if {![catch { ::tcltest::loadTestedCommands - set ::regver [package require registry 1.3.1] + set ::regver [package require registry 1.3.2] }]} { testConstraint reg 1 } @@ -33,7 +33,7 @@ testConstraint english [expr { test registry-1.0 {check if we are testing the right dll} {win reg} { set ::regver -} {1.3.1} +} {1.3.2} test registry-1.1 {argument parsing for registry command} {win reg} { list [catch {registry} msg] $msg } {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}} |