diff options
| -rw-r--r-- | tests/unixFile.test | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/tests/unixFile.test b/tests/unixFile.test new file mode 100644 index 0000000..eed009c --- /dev/null +++ b/tests/unixFile.test @@ -0,0 +1,66 @@ +# This file contains tests for the routines in the file tclUnixFile.c +# +# This file contains a collection of tests for one or more of the Tcl +# 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. +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# SCCS: %Z% $Id: unixFile.test,v 1.1 1998/06/17 18:16:41 stanton Exp $ + + +if {[string compare test [info procs test]] == 1} then {source defs} + +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" + return +} + +if {$tcl_platform(platform) != "unix"} { + return +} + + +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} { + set env(PATH) "" + testfindexecutable junk +} $absPath +test unixFile-1.2 {Tcl_FindExecutable} { + set env(PATH) "/dummy" + testfindexecutable junk +} {} +test unixFile-1.3 {Tcl_FindExecutable} { + set env(PATH) "/dummy:[pwd]" + testfindexecutable junk +} $absPath +test unixFile-1.4 {Tcl_FindExecutable} { + set env(PATH) "/dummy:" + testfindexecutable junk +} $absPath +test unixFile-1.5 {Tcl_FindExecutable} { + set env(PATH) "/dummy:/dummy" + testfindexecutable junk +} {} +test unixFile-1.6 {Tcl_FindExecutable} { + set env(PATH) "/dummy::/dummy" + testfindexecutable junk +} $absPath +test unixFile-1.7 {Tcl_FindExecutable} { + set env(PATH) ":/dummy" + testfindexecutable junk +} $absPath + + + + +set env(PATH) $oldPath +file delete junk |