diff options
author | jenn <jenn> | 2000-09-20 23:09:45 (GMT) |
---|---|---|
committer | jenn <jenn> | 2000-09-20 23:09:45 (GMT) |
commit | b5d5b0feb62c4a8be32c341478bec58d643e7e0a (patch) | |
tree | 71911b9bd26338d75be6d56cb37fe77a14238f4f /tests/socket.test | |
parent | ac36b4dd74f9359f07bfdb431c932d702064652f (diff) | |
download | tcl-b5d5b0feb62c4a8be32c341478bec58d643e7e0a.zip tcl-b5d5b0feb62c4a8be32c341478bec58d643e7e0a.tar.gz tcl-b5d5b0feb62c4a8be32c341478bec58d643e7e0a.tar.bz2 |
* library/tcltest1.0/pkgIndex.tcl: Updated to load tcltest 2.0.
* library/tcltest1.0/tcltest2.tcl: New version of tcltest.
Cleanup of command line parsing: allows users to specify command
line arguments through an environment variable named
TCLTEST_OPTIONS [RFE: 3748], does not respond to incorrect
arguments, and forces usage of entire flag name when using command
line arguments. Defines accessor procs for all tcltest
variables. Allows users to use 'return' in test scripts. Allow
users to specify whether test files should be sourced or run in a
separate process. 'all.tcl' code moved to tcltest package.
'test' proc modified to use attribute-value pairs. Allow users to
specify what return codes, output, and errors can be compared and
whether these values should be compared using regexp, glob, or
exact matching. makeDirectory & removeDirectory now operate with
respect to temporaryDirectory [Bug: 6001]. Test results from
tests run in slave interpreters are now included in test totals
[Bug: 1493]. Test files that return error values are now reported.
* tests/all.tcl: Added code to check for the tcltest version
loaded; modified to figure out which tests to run based on the
tcltest version loaded.
* tests/tcltest.test: Modified to explicitly load version 1.0 of
tcltest.
* tests/tcltest2.test: New test suite for tcltest; includes all of
the old tests plus new ones reflecting changes made for version
2.0.
* tests/cmdAH.test: Added singleTestInterp constraint to
cmdAH-31.2; this test does not run if tests aren't sourced into a
single interpreter.
* tests/socket.test: Fixed two tests that were referencing
variables outside of scope.
* tools/tcl.wse.in: Added code to install tcltest2.tcl.
* doc/tcltest2.n: New documentation for tcltest version 2.0.
Removes documentation for tcltest namespace variables. Adds
documentation for new tcltest procs.
* unix/mkLinks: Added code to link to tcltest2.n.
* generic/tcl.h: Added comment to modify tcltest2.tcl as well as
tcltest.tcl for version changes.
Diffstat (limited to 'tests/socket.test')
-rw-r--r-- | tests/socket.test | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tests/socket.test b/tests/socket.test index ba25211..9754f05 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: socket.test,v 1.14 2000/04/10 17:19:04 ericm Exp $ +# RCS: @(#) $Id: socket.test,v 1.15 2000/09/20 23:09:54 jenn Exp $ # Running socket tests with a remote server: # ------------------------------------------ @@ -1385,12 +1385,11 @@ test socket-12.1 {testing inheritance of server sockets} \ set f [open script2 w] puts $f [list set tcltest $::tcltest::tcltest] puts $f { - package require tcltest set f [socket -server accept 2828] proc accept { file addr port } { close $file } - exec $::tcltest::tcltest script1 & + exec $tcltest script1 & close $f after 1000 exit vwait forever @@ -1439,7 +1438,7 @@ test socket-12.2 {testing inheritance of client sockets} \ puts $f [list set tcltest $::tcltest::tcltest] puts $f { set f [socket 127.0.0.1 2829] - exec $::tcltest::tcltest script1 & + exec $tcltest script1 & puts $f testing flush $f after 1000 exit @@ -1521,7 +1520,7 @@ test socket-12.3 {testing inheritance of accepted sockets} \ proc accept { file host port } { global tcltest puts $file {test data on socket} - exec $::tcltest::tcltest script1 & + exec $tcltest script1 & after 1000 exit } vwait forever |