Check-in [1993ccba2e]
Overview
Comment:added more working tests
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1993ccba2e5421a512fb509bafb46fba72b883e1
User & Date: aborr on 2000-06-05 20:22:34
Other Links: manifest | tags
Context
2000-06-05
20:23
renamed file to match associated 'C' file check-in: 8273067043 user: aborr tags: trunk
20:22
added more working tests check-in: 1993ccba2e user: aborr tags: trunk
20:20
changed generation of pkgIndex file for test target check-in: 24a46987ec user: aborr tags: trunk
Changes
1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16
17
18
19
20
1
2
3
4
5
6
7
8
9
10
11
12

13
14
15
16
17
18
19
20












-
+







# Commands tested in this file: socket.
#
# This file contains a collection of tests for one or more of the Tcl
# built-in commands.  Sourcing this file into Tcl runs the tests and
# generates output for errors.  No output means no errors were found.
#
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
# Copyright (c) 1998-2000 Ajuba Solutions. 
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: tlsIo.test,v 1.12 2000/06/03 05:01:33 awb Exp $
# RCS: @(#) $Id: tlsIo.test,v 1.13 2000/06/05 20:22:34 aborr Exp $

# Running socket tests with a remote server:
# ------------------------------------------
# 
# Some tests in socket.test depend on the existence of a remote server to
# which they connect. The remote server must be an instance of tcltest and it
# must run the script found in the file "remote.tcl" in this directory. You
665
666
667
668
669
670
671











672
673
674
675
676
677
678
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689







+
+
+
+
+
+
+
+
+
+
+







    close $f
    set x
} {ready done {}}




#################################
if {[string match sock* $commandSocket] == 1} {
   puts $commandSocket exit
   flush $commandSocket
}
catch {close $commandSocket}
catch {close $remoteProcChan}
::tcltest::cleanupTests
flush stdout
return
#################################
test tlsIo-3.1 {socket conflict} {socket stdio} {
    removeFile script
    set f [open script w]
    puts $f {
    	package require tls
    }
    puts $f "set f \[tls::socket -server accept -certfile $serverCert -cafile $caCert -keyfile $serverKey 2828 \]"
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2005
2006
2007
2008
2009
2010
2011
2012


















-
-
-
-
-
-
-
-
-
-
   flush $commandSocket
}
catch {close $commandSocket}
catch {close $remoteProcChan}
::tcltest::cleanupTests
flush stdout
return