summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorstanton <stanton>1998-06-17 18:16:41 (GMT)
committerstanton <stanton>1998-06-17 18:16:41 (GMT)
commit5d04357f5662d07957027ecc2702276dfcc0bf59 (patch)
tree89d9c066cbe96572e09249c1eefb9cf21b39f546 /tests
parent03ef8f3f342508771e5815c2c946339491de9071 (diff)
downloadtcl-5d04357f5662d07957027ecc2702276dfcc0bf59.zip
tcl-5d04357f5662d07957027ecc2702276dfcc0bf59.tar.gz
tcl-5d04357f5662d07957027ecc2702276dfcc0bf59.tar.bz2
Initial revision
Diffstat (limited to 'tests')
-rw-r--r--tests/unixFile.test66
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