Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | added removeFile for outdata |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3e5931c7d79f75e38cbbe297baf01a14 |
| User & Date: | hobbs 2001-10-12 19:44:56.000 |
Context
|
2001-10-12
| ||
| 19:45 | (socket-7.2): corrected to work on Win2K check-in: 16801435e4 user: hobbs tags: trunk | |
| 19:44 | added removeFile for outdata check-in: 3e5931c7d7 user: hobbs tags: trunk | |
| 19:44 | * library/encoding/tis-620.enc: * tools/encoding/tis-620.txt: TIS-620 charset mapping. [Patch #46... check-in: 0ae6c21212 user: hobbs tags: trunk | |
Changes
Changes to tests/http.test.
| ︙ | ︙ | |||
8 9 10 11 12 13 14 | # Copyright (c) 1994-1996 Sun Microsystems, Inc. # Copyright (c) 1998-2000 by Ajuba Solutions. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # | | | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
# Copyright (c) 1998-2000 by 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: http.test,v 1.25 2001/10/12 19:44:56 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
namespace import -force ::tcltest::*
}
if {[catch {package require http 2} version]} {
|
| ︙ | ︙ | |||
482 483 484 485 486 487 488 |
} else {
close $listen
}
if {[info exist removeHttpd]} {
removeFile $httpdFile
}
| > > | > | 482 483 484 485 486 487 488 489 490 491 492 493 |
} else {
close $listen
}
if {[info exist removeHttpd]} {
removeFile $httpdFile
}
foreach file [list outdata] {
catch {::tcltest::removeFile $file}
}
::tcltest::cleanupTests
|