diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-23 13:27:14 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-23 13:27:14 (GMT) |
commit | 6d3aeef45e68dc92f69195ab165ce49ecd4738c4 (patch) | |
tree | 557acf48815936a86298a60639af7077e4056f8d /tests | |
parent | 63ef0e3d26d5ef38c104cb50b97e7cddb70dbba6 (diff) | |
download | tcl-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.test | 2 | ||||
-rw-r--r-- | tests/httpTestScript.tcl | 2 | ||||
-rw-r--r-- | tests/winPipe.test | 6 |
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] \ |