From 961684edff3e9293d3f3ef918cc5e46041b7b56c Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Thu, 4 Sep 2025 08:59:08 +0000 Subject: more Minor indent fixes --- tests/aaa_exit.test | 4 ++-- tests/chanio.test | 4 ++-- tests/clock.test | 4 ++-- tests/cmdMZ.test | 4 ++-- tests/error.test | 8 ++++---- tests/exec.test | 6 +++--- tests/fCmd.test | 2 +- tests/main.test | 4 ++-- 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} { -- cgit v0.12