diff options
author | hershey <hershey> | 1998-12-07 23:29:00 (GMT) |
---|---|---|
committer | hershey <hershey> | 1998-12-07 23:29:00 (GMT) |
commit | 575fead6396f86bad234914e97eaae770068b356 (patch) | |
tree | 506885307365619aeb650c2a083fc8e4bdf53901 /tests/filebox.test | |
parent | 837e87fa8ee3663820323fef7e3e0f244ad7be83 (diff) | |
download | tk-575fead6396f86bad234914e97eaae770068b356.zip tk-575fead6396f86bad234914e97eaae770068b356.tar.gz tk-575fead6396f86bad234914e97eaae770068b356.tar.bz2 |
- updated filebox test to work regardless of current working dir.
- updated imgPhoto to check for teapot.ppm before running the tests.
exits gracefully if file cannot be found.
- lint in "all" file
Diffstat (limited to 'tests/filebox.test')
-rw-r--r-- | tests/filebox.test | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/filebox.test b/tests/filebox.test index 97b313f..02e9295 100644 --- a/tests/filebox.test +++ b/tests/filebox.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: filebox.test,v 1.4 1998/09/14 18:23:46 stanton Exp $ +# RCS: @(#) $Id: filebox.test,v 1.5 1998/12/07 23:29:00 hershey Exp $ # set tk_strictMotif_old $tk_strictMotif @@ -187,10 +187,9 @@ foreach mode $modes { } else { set thisFile [info script] set fileName [file tail $thisFile] - set appPWD [pwd] - cd [file dirname $thisFile] + + # this file should be in the current working dir set fileDir [pwd] - cd $appPWD set pathName [file join $fileDir $fileName] } |