Mercurial > octave-nkf
comparison test/config/unix.exp @ 5347:679cc8fec408
[project @ 2005-05-11 16:34:11 by jwe]
author | jwe |
---|---|
date | Wed, 11 May 2005 16:34:11 +0000 |
parents | 498652ebb0df |
children |
comparison
equal
deleted
inserted
replaced
5346:a103c41e68b2 | 5347:679cc8fec408 |
---|---|
79 | 79 |
80 # It might take a long time to start Octave, but we shouldn't leave | 80 # It might take a long time to start Octave, but we shouldn't leave |
81 # the timeout period at a minute for the real tests. | 81 # the timeout period at a minute for the real tests. |
82 | 82 |
83 set timeout 60 | 83 set timeout 60 |
84 spawn $OCTAVE -f -q $OSPATH | 84 spawn $OCTAVE -f -q -H $OSPATH |
85 | 85 |
86 set timeout 5 | 86 set timeout 5 |
87 expect { | 87 expect { |
88 -re "No such file.*" { error "Can't start $OCTAVE"; exit 1 } | 88 -re "No such file.*" { error "Can't start $OCTAVE"; exit 1 } |
89 -re "$resync" { } | 89 -re "$resync" { } |
130 global OSPATH | 130 global OSPATH |
131 global oct_output | 131 global oct_output |
132 | 132 |
133 # Can't seem to get 2>&1 to work without using /bin/sh -c ""... | 133 # Can't seem to get 2>&1 to work without using /bin/sh -c ""... |
134 | 134 |
135 send_log "EXEC: $OCTAVE -f -q $OSPATH $src_file\n" | 135 send_log "EXEC: $OCTAVE -f -q -H $OSPATH $src_file\n" |
136 catch "exec /bin/sh -c \"$OCTAVE -f -q $OSPATH $src_file 2>&1\"" oct_output | 136 catch "exec /bin/sh -c \"$OCTAVE -f -q -H $OSPATH $src_file 2>&1\"" oct_output |
137 } | 137 } |
138 | 138 |
139 # do_test -- run a test given by the file $src_code. | 139 # do_test -- run a test given by the file $src_code. |
140 | 140 |
141 proc do_test { src_code } { | 141 proc do_test { src_code } { |