diff options
author | Ben Elliston <bje@gnu.org> | 2006-01-01 08:12:55 +0000 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2006-01-01 08:12:55 +0000 |
commit | d426ec81cc160c48c4de2791c602f999a0a17c5e (patch) | |
tree | 4c075188bc2cf22f12e1a14230fd5e122e47cf55 | |
parent | 2533a282b7d05588d0d81688e0be359ab59fec3c (diff) | |
download | dejagnu-d426ec81cc160c48c4de2791c602f999a0a17c5e.zip dejagnu-d426ec81cc160c48c4de2791c602f999a0a17c5e.tar.gz dejagnu-d426ec81cc160c48c4de2791c602f999a0a17c5e.tar.bz2 |
* testsuite/runtest.all/utils.test: Add runtest_file_p.
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | testsuite/runtest.all/utils.test | 22 |
2 files changed, 17 insertions, 9 deletions
@@ -1,5 +1,9 @@ 2006-01-01 Ben Elliston <bje@gnu.org> + * testsuite/runtest.all/utils.test: Add runtest_file_p. + +2006-01-01 Ben Elliston <bje@gnu.org> + * runtest.exp (frame_version): Set to 1.4.99. 2006-01-01 Ben Elliston <bje@gnu.org> diff --git a/testsuite/runtest.all/utils.test b/testsuite/runtest.all/utils.test index 1ed0f08..c3e2f3c 100644 --- a/testsuite/runtest.all/utils.test +++ b/testsuite/runtest.all/utils.test @@ -1,3 +1,5 @@ +# Test procedures in lib/utils.exp. + set srcdir [lindex $argv 0] set subdir [lindex $argv 1] set objdir [lindex $argv 2] @@ -20,8 +22,7 @@ if [ file exists $file] { puts "ERROR: $file doesn't exist" } -# -# getdirs tests +# Test getdirs: # if [lib_pat_test "getdirs" "${srcdir}/runtest.all" "runtest.all/topdir" ] { puts "FAILED: getdirs toplevel, no arguments" @@ -41,8 +42,7 @@ if [lib_pat_test "getdirs" "${srcdir}/runtest.all/topdir" "subdir1*subdir2" ] { puts "PASSED: getdirs toplevel, two subdirs" } -# -# find tests +# Test find: # if [string match "*/subdir2/subfile2" "[find ${srcdir}/runtest.all/topdir/subdir2 sub*]"] { puts "PASSED: find, only one level deep" @@ -56,15 +56,15 @@ if [regexp ".*/subdir1/subsubdir1/subsubfile1( |$)" "[find ${srcdir}/runtest.all puts "FAILED: find, two levels deep" } -# -# environment varible utility tests +# Environment varible utility tests. # if [info exists env(TESTRUN)] { unset env(TESTRUN) } -# test setenv +# Test setenv: +# setenv TESTRUN FooBar if [info exists env(TESTRUN)] { if { $env(TESTRUN) == "FooBar" } { @@ -75,7 +75,9 @@ if [info exists env(TESTRUN)] { } else { fail "setenv, set an environment variable" } -# test getenv + +# Test getenv: +# if [info exists env(TESTRUN)] { if { [getenv TESTRUN] == "FooBar" } { pass "getenv, get an environment variable" @@ -86,7 +88,8 @@ if [info exists env(TESTRUN)] { untested "getenv, get an environment variable" } -# test unsetenv +# Test unsetenv: +# if [info exists env(TESTRUN)] { unsetenv TESTRUN if [info exists env(TESTRUN)] { @@ -101,3 +104,4 @@ if [info exists env(TESTRUN)] { # which file # grep args # diff file_1 file_2 +# runtest_file_p |