diff options
| author | Ben Elliston <bje@gnu.org> | 2016-04-13 09:57:56 +1000 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2016-04-13 09:57:56 +1000 |
| commit | 57907758c5bfe9021ad666294e201e66c9dc5e99 (patch) | |
| tree | e66ee566be57adbe2f4fe7e842bb8fe523709e78 /runtest.exp | |
| parent | 3a14bb89c2ed5ac85585943a092fad4a909b8d46 (diff) | |
| download | dejagnu-57907758c5bfe9021ad666294e201e66c9dc5e99.zip dejagnu-57907758c5bfe9021ad666294e201e66c9dc5e99.tar.gz dejagnu-57907758c5bfe9021ad666294e201e66c9dc5e99.tar.bz2 | |
* runtest.exp: Improve --version (-v) output.
* testsuite/runtest.all/options.exp: Update test case.
Diffstat (limited to 'runtest.exp')
| -rw-r--r-- | runtest.exp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/runtest.exp b/runtest.exp index 7a4cf66..6fd78f7 100644 --- a/runtest.exp +++ b/runtest.exp @@ -1014,10 +1014,10 @@ for { set i 0 } { $i < $argc } { incr i } { switch -glob -- $option { "--V*" - "--vers*" { # (--version) version numbers - send_user "DejaGnu version is\t$frame_version\n" - send_user "Expect version is\t[exp_version]\n" - send_user "Tcl version is\t\t[ info tclversion ]\n" - exit + send_user "DejaGnu version\t$frame_version\n" + send_user "Expect version\t[exp_version]\n" + send_user "Tcl version\t[ info tclversion ]\n" + exit 0 } "--v*" { # (--verbose) verbose output |