diff options
| author | Ben Elliston <bje@gnu.org> | 2018-12-08 15:24:48 +1100 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2018-12-08 15:24:48 +1100 |
| commit | e24c17b2543f3e2e40ae28792c92f701e1a92fc1 (patch) | |
| tree | 01cdb2b431d655d30e7315d70e719d60995f105d /testsuite | |
| parent | 80e7788c09df6faa769dd7cfa9e59984fb25df79 (diff) | |
| download | dejagnu-e24c17b2543f3e2e40ae28792c92f701e1a92fc1.zip dejagnu-e24c17b2543f3e2e40ae28792c92f701e1a92fc1.tar.gz dejagnu-e24c17b2543f3e2e40ae28792c92f701e1a92fc1.tar.bz2 | |
* testsuite/lib/libsup.exp (start_expect): Brace commands in if
expressions.
* testsuite/lib/util-defs.exp (util_test): Likewise.
* testsuite/runtest.all/stats.exp: Likewise.
* testsuite/runtest.all/libs.exp: Likewise.
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/lib/libsup.exp | 4 | ||||
| -rw-r--r-- | testsuite/lib/util-defs.exp | 2 | ||||
| -rw-r--r-- | testsuite/runtest.all/libs.exp | 4 | ||||
| -rw-r--r-- | testsuite/runtest.all/stats.exp | 4 |
4 files changed, 7 insertions, 7 deletions
diff --git a/testsuite/lib/libsup.exp b/testsuite/lib/libsup.exp index d04f57c..5691bfd 100644 --- a/testsuite/lib/libsup.exp +++ b/testsuite/lib/libsup.exp @@ -78,8 +78,8 @@ proc start_expect { } { set fd [open ${defaults_file} w] # look for expect - if ![info exists EXPECT] { - set EXPECT [findfile $base_dir/../../expect/expect "$base_dir/../../expect/expect" expect] + if {![info exists EXPECT]} { + set EXPECT [findfile $base_dir/../../expect/expect $base_dir/../../expect/expect expect] verbose "EXPECT defaulting to $EXPECT" 2 } diff --git a/testsuite/lib/util-defs.exp b/testsuite/lib/util-defs.exp index a22f268..fd89648 100644 --- a/testsuite/lib/util-defs.exp +++ b/testsuite/lib/util-defs.exp @@ -47,7 +47,7 @@ proc util_test { args } { if [info exists file] { if {$file ne ""} { - if ![file exists $file] { + if {![file exists $file]} { perror "$file doesn't exist" return -1 } diff --git a/testsuite/runtest.all/libs.exp b/testsuite/runtest.all/libs.exp index 068be57..7865c47 100644 --- a/testsuite/runtest.all/libs.exp +++ b/testsuite/runtest.all/libs.exp @@ -93,8 +93,8 @@ proc process_test { test } { } } -if ![info exists EXPECT] { - set EXPECT [findfile $base_dir/../../expect/expect "$base_dir/../../expect/expect" expect] +if {![info exists EXPECT]} { + set EXPECT [findfile $base_dir/../../expect/expect $base_dir/../../expect/expect expect] verbose "EXPECT defaulting to $EXPECT" 2 } diff --git a/testsuite/runtest.all/stats.exp b/testsuite/runtest.all/stats.exp index 1445b2f..fc895f8 100644 --- a/testsuite/runtest.all/stats.exp +++ b/testsuite/runtest.all/stats.exp @@ -22,11 +22,11 @@ load_lib util-defs.exp -if ![info exists tmpdir] { +if {![info exists tmpdir]} { set tmpdir $objdir/tmpdir } -if ![file isdirectory $tmpdir] { +if {![file isdirectory $tmpdir]} { catch "file mkdir $tmpdir" } |