summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2025-09-04 08:59:08 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2025-09-04 08:59:08 (GMT)
commit961684edff3e9293d3f3ef918cc5e46041b7b56c (patch)
treef83265328d4fc81f422649d4d5c66b43b183ff20
parent6b52ee1bdfb4dfb606d27e01ec30e6ac491f3a67 (diff)
downloadtcl-961684edff3e9293d3f3ef918cc5e46041b7b56c.zip
tcl-961684edff3e9293d3f3ef918cc5e46041b7b56c.tar.gz
tcl-961684edff3e9293d3f3ef918cc5e46041b7b56c.tar.bz2
more Minor indent fixes
-rw-r--r--tests/aaa_exit.test4
-rw-r--r--tests/chanio.test4
-rw-r--r--tests/clock.test4
-rw-r--r--tests/cmdMZ.test4
-rw-r--r--tests/error.test8
-rw-r--r--tests/exec.test6
-rw-r--r--tests/fCmd.test2
-rw-r--r--tests/main.test4
8 files changed, 18 insertions, 18 deletions
diff --git a/tests/aaa_exit.test b/tests/aaa_exit.test
index 5957640..e120da4 100644
--- a/tests/aaa_exit.test
+++ b/tests/aaa_exit.test
@@ -17,8 +17,8 @@ if {"::tcltest" ni [namespace children]} {
}
testConstraint noappverifier [expr {
- [llength [info commands testappverifierpresent]] == 0
- || ![testappverifierpresent]}]
+ [llength [info commands testappverifierpresent]] == 0
+ || ![testappverifierpresent]}]
test exit-1.1 {normal, quick exit} -constraints noappverifier -body {
set f [open "|[interpreter] << \"exec [interpreter] << {set ::env(TCL_FINALIZE_ON_EXIT) 0;exit}\"" r]
diff --git a/tests/chanio.test b/tests/chanio.test
index da850f4..a5607e3 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -19,8 +19,8 @@ if {"::tcltest" ni [namespace children]} {
}
testConstraint noappverifier [expr {
- [llength [info commands testappverifierpresent]] == 0
- || ![testappverifierpresent]}]
+ [llength [info commands testappverifierpresent]] == 0
+ || ![testappverifierpresent]}]
namespace eval ::tcl::test::io {
diff --git a/tests/clock.test b/tests/clock.test
index 24c7a7d..5afae0b 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -29,8 +29,8 @@ if {[testConstraint win]} {
# detection fails. Disable tests that depend on that if
# it is running.
testConstraint noappverifier [expr {
- [llength [info commands testappverifierpresent]] == 0
- || ![testappverifierpresent]}]
+ [llength [info commands testappverifierpresent]] == 0
+ || ![testappverifierpresent]}]
package require msgcat 1.4
diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test
index 4d1ac6f..51a64e6 100644
--- a/tests/cmdMZ.test
+++ b/tests/cmdMZ.test
@@ -17,8 +17,8 @@ if {"::tcltest" ni [namespace children]} {
}
testConstraint noappverifier [expr {
- [llength [info commands testappverifierpresent]] == 0
- || ![testappverifierpresent]}]
+ [llength [info commands testappverifierpresent]] == 0
+ || ![testappverifierpresent]}]
namespace eval ::tcl::test::cmdMZ {
namespace import ::tcltest::cleanupTests
diff --git a/tests/error.test b/tests/error.test
index f10c1e9..4e84f70 100644
--- a/tests/error.test
+++ b/tests/error.test
@@ -1202,7 +1202,7 @@ test error-21.9.1 {Bug cee90e4e88 variant} {
test error-22.1 {try trapless} {
apply {{} {
- try {
+ try {
error foo
} on error {} {
incr x
@@ -1212,7 +1212,7 @@ test error-22.1 {try trapless} {
} 1
test error-22.2 {try trapless} {
apply {{} {
- try {
+ try {
error foo
} on ok {} {
set x gorp
@@ -1224,7 +1224,7 @@ test error-22.2 {try trapless} {
} 1
test error-22.3 {try trapless + finally} {
apply {{} {
- try {
+ try {
error foo
} on error {} {
incr x
@@ -1236,7 +1236,7 @@ test error-22.3 {try trapless + finally} {
} 1,1
test error-22.4 {try trapless + finally} {
apply {{} {
- try {
+ try {
error foo
} on ok {} {
set x gorp
diff --git a/tests/exec.test b/tests/exec.test
index 53006d3..72b43d4 100644
--- a/tests/exec.test
+++ b/tests/exec.test
@@ -203,7 +203,7 @@ test exec-2.7 {handle count redirecting input from immediate source} -constraint
} -body {
set numHandles [testhandlecount]
list [exec [interpreter] $path(cat) | [interpreter] $path(cat) << "Sample text"] \
- [expr {[testhandlecount] - $numHandles}]
+ [expr {[testhandlecount] - $numHandles}]
} -result [list {Sample text} 0]
# I/O redirection: output to file.
@@ -253,7 +253,7 @@ test exec-3.8 {handle count redirecting output to file} -constraints {
set numHandles [testhandlecount]
exec > $path(gorp.file) [interpreter] $path(echo) "Different simple words" | [interpreter] $path(cat) | [interpreter] $path(cat)
list [exec [interpreter] $path(cat) $path(gorp.file)] \
- [expr {[testhandlecount] - $numHandles}]
+ [expr {[testhandlecount] - $numHandles}]
} -result [list "Different simple words" 0]
# I/O redirection: output and stderr to file.
@@ -331,7 +331,7 @@ test exec-5.8 {handle count redirecting input from file} -constraints {
} -body {
set numHandles [testhandlecount]
list [exec [interpreter] $path(cat) | [interpreter] $path(cat) < $path(gorp.file)] \
- [expr {[testhandlecount] - $numHandles}]
+ [expr {[testhandlecount] - $numHandles}]
} -result [list {Just a few thoughts} 0]
# I/O redirection: standard error through a pipeline.
diff --git a/tests/fCmd.test b/tests/fCmd.test
index 1d7cfef..873e752 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -2708,7 +2708,7 @@ test fCmd-30.3 {file readable on 'pagefile.sys'} -constraints {win notInCIenv} -
lappend r exists [file exists $path]
lappend r readable [file readable $path]
lappend r stat [catch {file stat $path a} e] $e
- unset -nocomplain path
+ unset -nocomplain path
}
return $r
} -result {exists 1 readable 0 stat 0 {}}
diff --git a/tests/main.test b/tests/main.test
index a3d7d28..2a8f9a1 100644
--- a/tests/main.test
+++ b/tests/main.test
@@ -17,8 +17,8 @@ namespace eval ::tcl::test::main {
&& [package vsatisfies [package provide tcl::test] 8.5-]}]
testConstraint noappverifier [expr {
- [llength [info commands testappverifierpresent]] == 0
- || ![testappverifierpresent]}]
+ [llength [info commands testappverifierpresent]] == 0
+ || ![testappverifierpresent]}]
# Procedure to simulate interactive typing of commands, line by line
proc type {chan script} {