diff options
| author | hobbs <hobbs> | 1999-08-10 05:09:16 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-08-10 05:09:16 (GMT) |
| commit | 29e7f1a55250207e75c6e1e5ef5871a569514f62 (patch) | |
| tree | 35e92a6781eae43644ccd1a1e63701c8280ab2de /tests/tcltest.test | |
| parent | 5faf3edecdd8768936318d4aabac01542cb390eb (diff) | |
| download | tcl-29e7f1a55250207e75c6e1e5ef5871a569514f62.zip tcl-29e7f1a55250207e75c6e1e5ef5871a569514f62.tar.gz tcl-29e7f1a55250207e75c6e1e5ef5871a569514f62.tar.bz2 | |
1999-08-09 Jeff Hobbs <hobbs@scriptics.com>
* tests/string.test: added largest_int proc to adapt for >32 bit
machines and int overflow testing.
* tests/tcltest.test: fixed minor error in 8.2 result (from dgp)
Diffstat (limited to 'tests/tcltest.test')
| -rwxr-xr-x | tests/tcltest.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 7c37ebe..f1f709d 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -10,7 +10,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.4 1999/07/30 19:10:47 jenn Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.5 1999/08/10 05:09:20 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -230,7 +230,8 @@ test tcltest-8.1 {tcltest a.tcl -tmpdir a} { } {1 {}} test tcltest-8.2 {tcltest a.tcl -tmpdir thisdirectoryisafile} { catch {exec $::tcltest::tcltest a.tcl -tmpdir thisdirectoryisafile} msg - list [regexp "not a directory" $msg] + # The join is necessary because the message can be split on multiple lines + list [regexp "not a directory" [join $msg]] } {1} # Platform-specific attribute testing still needs to be set up |