Tcl Source Code

Check-in [959b030de5]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:* tests/http.test: Fixed bad test initialization code.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1: 959b030de5787bcb5d82acfc908ab55c68ce4326
User & Date: stanton 1999-04-03 01:19:53
Context
1999-04-03
01:19
*** empty log message *** check-in: 11b0722d47 user: stanton tags: core-8-1-branch-old
01:19
* tests/http.test: Fixed bad test initialization code. check-in: 959b030de5 user: stanton tags: core-8-1-branch-old
01:19
* generic/tclThreadTest.c (ThreadExitProc): Fixed bug where static memory was being returned instead... check-in: 580aaa126e user: stanton tags: core-8-1-branch-old
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/http.test.

     8      8   # Copyright (c) 1994-1996 Sun Microsystems, Inc.
     9      9   # Copyright (c) 1998-1999 by Scriptics Corporation.
    10     10   #
    11     11   # See the file "license.terms" for information on usage and redistribution
    12     12   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    13     13   #
    14     14   #
    15         -# RCS: @(#) $Id: http.test,v 1.1.2.7 1999/04/02 18:57:08 hershey Exp $
           15  +# RCS: @(#) $Id: http.test,v 1.1.2.8 1999/04/03 01:19:53 stanton Exp $
    16     16   
    17     17   if {[lsearch [namespace children] ::tcltest] == -1} {
    18     18       source [file join [pwd] [file dirname [info script]] defs.tcl]
    19     19   }
    20     20   
    21     21   if {[catch {package require http 2.0}]} {
    22     22       if {[info exist http2]} {
................................................................................
    34     34   
    35     35   
    36     36   set port 8010
    37     37   set bindata "This is binary data\x0d\x0amore\x0dmore\x0amore\x00null"
    38     38   
    39     39   set httpdFile [file join $::tcltest::testsDir httpd]
    40     40   if {[info commands testthread] == "testthread" && [file exists $httpdFile]} {
    41         -    set httpthread [testthread create {
           41  +    set httpthread [testthread create "
    42     42   	source $httpdFile
    43     43   	testthread wait
    44         -    }]
           44  +    "]
    45     45       testthread send $httpthread [list set port $port]
    46     46       testthread send $httpthread [list set bindata $bindata]
    47     47       testthread send $httpthread {httpd_init $port}
    48     48       puts "Running httpd in thread $httpthread"
    49     49   } else {
    50     50       if ![file exists $httpdFile] {
    51     51   	puts "Cannot read $httpdFile script, http test skipped"