4 |
# it under the terms of the GNU General Public License as published by |
# it under the terms of the GNU General Public License as published by |
5 |
# the Free Software Foundation; either version 2 of the License, or |
# the Free Software Foundation; either version 2 of the License, or |
6 |
# (at your option) any later version. |
# (at your option) any later version. |
7 |
# |
# |
8 |
# This program is distributed in the hope that it will be useful, |
# This program is distributed in the hope that it will be useful, |
9 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
11 |
# GNU General Public License for more details. |
# GNU General Public License for more details. |
12 |
# |
# |
13 |
# You should have received a copy of the GNU General Public License |
# You should have received a copy of the GNU General Public License |
14 |
# along with this program; if not, write to the Free Software |
# along with this program; if not, write to the Free Software |
15 |
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
16 |
|
|
17 |
# Please email any bugs, comments, and/or additions to this file to: |
# Please email any bugs, comments, and/or additions to this file to: |
18 |
# bug-dejagnu@gnu.org |
# bug-dejagnu@gnu.org |
55 |
set shell_id [remote_spawn $rh "$mondfe -D -TIP $remote_host"] |
set shell_id [remote_spawn $rh "$mondfe -D -TIP $remote_host"] |
56 |
|
|
57 |
remote_expect $rh 60 { |
remote_expect $rh 60 { |
58 |
"$shell_prompt" { |
"$shell_prompt" { |
59 |
verbose "Got prompt" |
verbose "Got prompt" |
60 |
set result 0 |
set result 0 |
61 |
} |
} |
74 |
warning "$expect_out(1,string)" |
warning "$expect_out(1,string)" |
75 |
exp_continue |
exp_continue |
76 |
} |
} |
77 |
timeout { |
timeout { |
78 |
warning "Timed out trying to connect." |
warning "Timed out trying to connect." |
79 |
set result -1 |
set result -1 |
80 |
incr retries |
incr retries |