Tcl Source Code

Check-in [13af4c70f4]
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:lint
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1: 13af4c70f4282a53d0a824f01c14720ad1e29b4a
User & Date: hershey 1999-04-02 18:59:07
Context
1999-04-02
19:43
Fixed warnings from VC++. check-in: ede99b1301 user: redman tags: core-8-1-branch-old
18:59
lint check-in: 13af4c70f4 user: hershey tags: core-8-1-branch-old
18:57
minor changes to fix bad code that was outside of "test" calls. check-in: f2aaa3e425 user: hershey tags: core-8-1-branch-old
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/unixNotfy.test.

     6      6   #
     7      7   # Copyright (c) 1997 by Sun Microsystems, Inc.
     8      8   # Copyright (c) 1998-1999 by Scriptics Corporation.
     9      9   #
    10     10   # See the file "license.terms" for information on usage and redistribution
    11     11   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    12     12   #
    13         -# RCS: @(#) $Id: unixNotfy.test,v 1.1.2.6 1999/03/26 19:14:08 hershey Exp $
           13  +# RCS: @(#) $Id: unixNotfy.test,v 1.1.2.7 1999/04/02 18:59:07 hershey Exp $
    14     14   
    15     15   # The tests should not be run if you have a notifier which is unable to
    16     16   # detect infinite vwaits, as the tests below will hang. The presence of
    17     17   # the "testthread" command indicates that this is the case.
    18     18   
    19     19   if {[lsearch [namespace children] ::tcltest] == -1} {
    20     20       source [file join [pwd] [file dirname [info script]] defs.tcl]
    21     21   }
    22     22   
    23         -if {"[info commands testthread]" == "testthread"} {
           23  +if {[lsearch [info commands testthread] testthread] == -1} {
    24     24       puts "skipping: tests require the testthread command..."
    25     25       ::tcltest::cleanupTests
    26     26       return
    27     27   }
    28     28   
    29     29   test unixNotfy-1.1 {Tcl_DeleteFileHandler} {unixOnly} {
    30     30       catch {vwait x}