summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2018-09-23 13:27:14 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2018-09-23 13:27:14 (GMT)
commit6d3aeef45e68dc92f69195ab165ce49ecd4738c4 (patch)
tree557acf48815936a86298a60639af7077e4056f8d /tests
parent63ef0e3d26d5ef38c104cb50b97e7cddb70dbba6 (diff)
downloadtcl-6d3aeef45e68dc92f69195ab165ce49ecd4738c4.zip
tcl-6d3aeef45e68dc92f69195ab165ce49ecd4738c4.tar.gz
tcl-6d3aeef45e68dc92f69195ab165ce49ecd4738c4.tar.bz2
Give lambda function a name "ReceiveChunked" for easier testing. New function quoteString and code cleanup
Diffstat (limited to 'tests')
-rw-r--r--tests/httpPipeline.test2
-rw-r--r--tests/httpTestScript.tcl2
-rw-r--r--tests/winPipe.test6
3 files changed, 5 insertions, 5 deletions
diff --git a/tests/httpPipeline.test b/tests/httpPipeline.test
index 5eb02d3..8de79b9 100644
--- a/tests/httpPipeline.test
+++ b/tests/httpPipeline.test
@@ -532,7 +532,7 @@ proc ReturnTestScriptAndResult {ca cb delay te} {
# Proc MakeMessage
# ------------------------------------------------------------------------------
# WHD's one-line command to generate multi-line strings from readable code.
-#
+#
# Example:
# set blurb [MakeMessage {
# |This command allows multi-line strings to be created with readable
diff --git a/tests/httpTestScript.tcl b/tests/httpTestScript.tcl
index a8ef9c8..a40449a 100644
--- a/tests/httpTestScript.tcl
+++ b/tests/httpTestScript.tcl
@@ -496,7 +496,7 @@ proc httpTestScript::runHttpTestScript {scr} {
proc httpTestScript::cleanupHttpTestScript {} {
variable TimeOutDone
variable RequestsWhenStopped
-
+
if {![info exists RequestsWhenStopped]} {
return -code error {Cleanup Failed: RequestsWhenStopped is undefined}
}
diff --git a/tests/winPipe.test b/tests/winPipe.test
index 9402db1..62cc707 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -41,7 +41,7 @@ append big $big
append big $big
set path(little) [makeFile {} little]
-set f [open $path(little) w]
+set f [open $path(little) w]
puts -nonewline $f "little"
close $f
@@ -332,7 +332,7 @@ proc _testExecArgs {single args} {
set broken {}
foreach args $args {
if {$single & 1} {
- # enclose single test-arg between 1st/3rd to be sure nothing is truncated
+ # enclose single test-arg between 1st/3rd to be sure nothing is truncated
# (e. g. to cover unexpected trim by nts-zero case, and args don't recombined):
set args [list "1st" $args "3rd"]
}
@@ -569,7 +569,7 @@ set injectList {
test winpipe-8.6 {BuildCommandLine/parse_cmdline pass-thru: check new-line quoted in args} \
-constraints {win exec} -body {
- # test exe only, because currently there is no proper way to escape a new-line char resp.
+ # test exe only, because currently there is no proper way to escape a new-line char resp.
# to supply a new-line to the batch-files within arguments (command line is truncated).
_testExecArgs 8 \
[list START {*}$injectList END] \