diff options
author | Ben Elliston <bje@gnu.org> | 2011-03-15 13:02:04 +1100 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2011-03-15 13:02:04 +1100 |
commit | 126a089777158a7891ff975473939f08c0e31a1c (patch) | |
tree | ac2690dfc647a50ad4cc9a10d1197f64befae74e /lib/dg.exp | |
parent | c24622e0f2e30eda9bfb357d7b957d4cb9e3ee69 (diff) | |
download | dejagnu-126a089777158a7891ff975473939f08c0e31a1c.zip dejagnu-126a089777158a7891ff975473939f08c0e31a1c.tar.gz dejagnu-126a089777158a7891ff975473939f08c0e31a1c.tar.bz2 |
* runtest.exp: Whitespace cleanups.
* lib/dejagnu.exp, lib/dg.exp, lib/framework.exp,
lib/libgloss.exp, lib/remote.exp, lib/rsh.exp, lib/target.exp,
lib/telnet.exp, lib/tip.exp, lib/utils.exp: Likewise.
Diffstat (limited to 'lib/dg.exp')
-rw-r--r-- | lib/dg.exp | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -672,10 +672,10 @@ proc dg-test { args } { # Define our own "special function" `unknown' so we catch spelling errors. # But first rename the existing one so we can restore it afterwards. if { [info procs dg-save-unknown] == [list] } { - rename unknown dg-save-unknown - proc unknown { args } { + rename unknown dg-save-unknown + proc unknown { args } { return -code error "unknown dg option: $args" - } + } } set tmp [dg-get-options $prog] @@ -700,8 +700,8 @@ proc dg-test { args } { # Restore normal error handling. if { [info procs dg-save-unknown] != [list] } { - rename unknown "" - rename dg-save-unknown unknown + rename unknown "" + rename dg-save-unknown unknown } # If we're not supposed to try this test on this target, we're done. @@ -737,7 +737,7 @@ proc dg-test { args } { set comment [lindex $i 3] #send_user "Before:\n$comp_output\n" if {[regsub -all "(^|\n)(\[^\n\]+$line\[^\n\]*($pattern)\[^\n\]*\n?)+" $comp_output "\n" comp_output]} { - set comp_output [string trimleft $comp_output] + set comp_output [string trimleft $comp_output] set ok pass set uhoh fail } else { |