summaryrefslogtreecommitdiffstats
path: root/tests/socket.test
diff options
context:
space:
mode:
authorjenn <jenn>2000-09-20 23:09:45 (GMT)
committerjenn <jenn>2000-09-20 23:09:45 (GMT)
commitb5d5b0feb62c4a8be32c341478bec58d643e7e0a (patch)
tree71911b9bd26338d75be6d56cb37fe77a14238f4f /tests/socket.test
parentac36b4dd74f9359f07bfdb431c932d702064652f (diff)
downloadtcl-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.test9
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