diff options
Diffstat (limited to 'tcl/tests/unixFile.test')
-rw-r--r-- | tcl/tests/unixFile.test | 53 |
1 files changed, 33 insertions, 20 deletions
diff --git a/tcl/tests/unixFile.test b/tcl/tests/unixFile.test index cecaedc1c4b..d9d273a70b7 100644 --- a/tcl/tests/unixFile.test +++ b/tcl/tests/unixFile.test @@ -4,63 +4,76 @@ # built-in commands. Sourcing this file into Tcl runs the tests and # generates output for errors. No output means no errors were found. # -# Copyright (c) 1998 by Scriptics Corporation. +# Copyright (c) 1998-1999 by Scriptics Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # RCS: @(#) $Id$ - -if {[string compare test [info procs test]] == 1} then {source defs} +if {[lsearch [namespace children] ::tcltest] == -1} { + package require tcltest + namespace import -force ::tcltest::* +} if {[info commands testobj] == {}} { puts "This application hasn't been compiled with the \"testfindexecutable\"" puts "command, so I can't test the Tcl_FindExecutable function" + ::tcltest::cleanupTests return } -if {$tcl_platform(platform) != "unix"} { - return +catch { + set oldPath $env(PATH) + close [open junk w] + file attributes junk -perm 0777 } - - -set oldPath $env(PATH) -close [open junk w] -file attributes junk -perm 0777 - set absPath [file join [pwd] junk] -test unixFile-1.1 {Tcl_FindExecutable} { + +test unixFile-1.1 {Tcl_FindExecutable} {unixOnly} { set env(PATH) "" testfindexecutable junk } $absPath -test unixFile-1.2 {Tcl_FindExecutable} { +test unixFile-1.2 {Tcl_FindExecutable} {unixOnly} { set env(PATH) "/dummy" testfindexecutable junk } {} -test unixFile-1.3 {Tcl_FindExecutable} { +test unixFile-1.3 {Tcl_FindExecutable} {unixOnly} { set env(PATH) "/dummy:[pwd]" testfindexecutable junk } $absPath -test unixFile-1.4 {Tcl_FindExecutable} { +test unixFile-1.4 {Tcl_FindExecutable} {unixOnly} { set env(PATH) "/dummy:" testfindexecutable junk } $absPath -test unixFile-1.5 {Tcl_FindExecutable} { +test unixFile-1.5 {Tcl_FindExecutable} {unixOnly} { set env(PATH) "/dummy:/dummy" testfindexecutable junk } {} -test unixFile-1.6 {Tcl_FindExecutable} { +test unixFile-1.6 {Tcl_FindExecutable} {unixOnly} { set env(PATH) "/dummy::/dummy" testfindexecutable junk } $absPath -test unixFile-1.7 {Tcl_FindExecutable} { +test unixFile-1.7 {Tcl_FindExecutable} {unixOnly} { set env(PATH) ":/dummy" testfindexecutable junk } $absPath +# cleanup +catch {set env(PATH) $oldPath} +file delete junk +::tcltest::cleanupTests +return + + + + + + + + + + -set env(PATH) $oldPath -file delete junk |