diff options
Diffstat (limited to 'example/calc/testsuite/config/unix.exp')
| -rw-r--r-- | example/calc/testsuite/config/unix.exp | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/example/calc/testsuite/config/unix.exp b/example/calc/testsuite/config/unix.exp index 1d9d9e4..26a7060 100644 --- a/example/calc/testsuite/config/unix.exp +++ b/example/calc/testsuite/config/unix.exp @@ -25,44 +25,44 @@ if ![info exists prompt] then { # proc calc_version {} { - global CALC - global prompt - set tmp [exec echo "version" | $CALC] - regexp "$prompt *(\[^\n\]*)\n.*" $tmp tmp version - clone_output "[which $CALC] version $version\n" + global CALC + global prompt + set tmp [exec echo "version" | $CALC] + regexp "$prompt *(\[^\n\]*)\n.*" $tmp tmp version + clone_output "[which $CALC] version $version\n" } # # calc_load -- loads the program # proc calc_load { arg } { - # + # } # # calc_exit -- quit and cleanup # proc calc_exit {} { - send "quit\n" + send "quit\n" } # # calc_start -- start calc running # proc calc_start {} { - global CALC - global prompt - global spawn_id - global verbose + global CALC + global prompt + global spawn_id + global verbose - if { $verbose > 1 } { - send_user "starting $CALC\n" - } - spawn $CALC - expect { - -re "No such file.*" { perror "Can't start $CALC"; exit 1 } - -re "$prompt$" { } - timeout { perror "Failed to spawn $CALC (timeout)"; exit 1 } - } + if { $verbose > 1 } { + send_user "starting $CALC\n" + } + spawn $CALC + expect { + -re "No such file.*" { perror "Can't start $CALC"; exit 1 } + -re "$prompt$" { } + timeout { perror "Failed to spawn $CALC (timeout)"; exit 1 } + } } calc_start |