diff options
author | Steve Bennett <steveb@workware.net.au> | 2015-04-06 10:01:17 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2015-04-06 10:13:49 +1000 |
commit | af59339f008ae4eff13b0fea0eeff21a9d1e8b6c (patch) | |
tree | fe1c8de42c1f5092cf4d521f9f5e09860b6e26df /tests | |
parent | 85358e479e5bbf295a5aaf743f3c29a5e1a4fd1c (diff) | |
download | jimtcl-af59339f008ae4eff13b0fea0eeff21a9d1e8b6c.zip jimtcl-af59339f008ae4eff13b0fea0eeff21a9d1e8b6c.tar.gz jimtcl-af59339f008ae4eff13b0fea0eeff21a9d1e8b6c.tar.bz2 |
Avoid error in tcltest.tcl if $::argv0 is unset
Can happen if running interactively or via -e
Reported-by: Stuart Cassoff <stwo@bell.net>
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/filecopy.test | 2 | ||||
-rw-r--r-- | tests/misc.test | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/filecopy.test b/tests/filecopy.test index 084beec..87fc899 100644 --- a/tests/filecopy.test +++ b/tests/filecopy.test @@ -5,7 +5,7 @@ needs cmd file needs cmd exec needs cmd parray tclcompat -cd $testdir +cd [file dirname [info script]] file mkdir tempdir diff --git a/tests/misc.test b/tests/misc.test index 9a9ac35..60dcf78 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -45,7 +45,7 @@ test regr-1.5 "lassign with empty list" { test io-1.1 "Read last line with no newline" { set lines 0 - set f [open $testdir/testio.in] + set f [open [file dirname [info script]]/testio.in] while {[gets $f buf] >= 0} { incr lines } |