From 6051e0b7f63df5632de3f958872eee5d89cd26fc Mon Sep 17 00:00:00 2001 From: jenn Date: Sat, 25 Sep 1999 02:12:10 +0000 Subject: * library/tcltest1.0/tcltest.tcl: Changed checks for value of tcl_interactive to checks for existence of tcl_interactive. --- ChangeLog | 5 +++++ library/tcltest/tcltest.tcl | 6 +++--- library/tcltest1.0/tcltest.tcl | 6 +++--- 3 files changed, 11 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index b6db06d..e2b6d40 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-09-24 Jennifer Hom + + * library/tcltest1.0/tcltest.tcl: Changed checks for value of + tcl_interactive to checks for existence of tcl_interactive. + 1999-09-24 Jeff Hobbs * 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 { -- cgit v0.12