diff options
| author | jenn <jenn> | 1999-09-25 02:12:10 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 1999-09-25 02:12:10 (GMT) |
| commit | 6051e0b7f63df5632de3f958872eee5d89cd26fc (patch) | |
| tree | de0df827aa2056259c5ff6e40fd777386fe33da3 | |
| parent | 90cbff24c4286e27416ec244a3f1d0d8f13bb791 (diff) | |
| download | tcl-6051e0b7f63df5632de3f958872eee5d89cd26fc.zip tcl-6051e0b7f63df5632de3f958872eee5d89cd26fc.tar.gz tcl-6051e0b7f63df5632de3f958872eee5d89cd26fc.tar.bz2 | |
* library/tcltest1.0/tcltest.tcl: Changed checks for value of
tcl_interactive to checks for existence of tcl_interactive.
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | library/tcltest/tcltest.tcl | 6 | ||||
| -rw-r--r-- | library/tcltest1.0/tcltest.tcl | 6 |
3 files changed, 11 insertions, 6 deletions
@@ -1,3 +1,8 @@ +1999-09-24 Jennifer Hom <jenn@scriptics.com> + + * library/tcltest1.0/tcltest.tcl: Changed checks for value of + tcl_interactive to checks for existence of tcl_interactive. + 1999-09-24 Jeff Hobbs <hobbs@scriptics.com> * mac/tclMacFCmd.c: fixed filename stuff to support UTF-8 [Bug: 2869] diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index dd2f175..ec3e6cb 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -12,7 +12,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: tcltest.tcl,v 1.9.4.1 1999/09/22 21:05:50 jenn Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.9.4.2 1999/09/25 02:12:15 jenn Exp $ package provide tcltest 1.0 @@ -445,7 +445,7 @@ proc ::tcltest::initConstraints {} { # Some tests must be skipped if the interpreter is not in interactive mode - set ::tcltest::testConstraints(interactive) $tcl_interactive + set ::tcltest::testConstraints(interactive) [info exists tcl_interactive] # Some tests can only be run if the installation came from a CD image # instead of a web image @@ -1022,7 +1022,7 @@ proc ::tcltest::cleanupTests {{calledFromAllFile 0}} { # exit only if running Tk in non-interactive mode global tk_version tcl_interactive - if {[info exists tk_version] && !$tcl_interactive} { + if {[info exists tk_version] && ![info exists tcl_interactive]} { exit } } else { diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl index dd2f175..ec3e6cb 100644 --- a/library/tcltest1.0/tcltest.tcl +++ b/library/tcltest1.0/tcltest.tcl @@ -12,7 +12,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: tcltest.tcl,v 1.9.4.1 1999/09/22 21:05:50 jenn Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.9.4.2 1999/09/25 02:12:15 jenn Exp $ package provide tcltest 1.0 @@ -445,7 +445,7 @@ proc ::tcltest::initConstraints {} { # Some tests must be skipped if the interpreter is not in interactive mode - set ::tcltest::testConstraints(interactive) $tcl_interactive + set ::tcltest::testConstraints(interactive) [info exists tcl_interactive] # Some tests can only be run if the installation came from a CD image # instead of a web image @@ -1022,7 +1022,7 @@ proc ::tcltest::cleanupTests {{calledFromAllFile 0}} { # exit only if running Tk in non-interactive mode global tk_version tcl_interactive - if {[info exists tk_version] && !$tcl_interactive} { + if {[info exists tk_version] && ![info exists tcl_interactive]} { exit } } else { |