OpenCores
URL https://opencores.org/ocsvn/or1k_old/or1k_old/trunk

Subversion Repositories or1k_old

[/] [or1k_old/] [trunk/] [gdb-5.3/] [gdb/] [testsuite/] [gdb.base/] [a2-run.exp] - Blame information for rev 1782

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 1181 sfurman 
#   Copyright 1988, 1990, 1991, 1992, 1994, 1995, 1996, 1997, 1999, 2000
2 
#   Free Software Foundation, Inc.
3 
 
4 
# This program is free software; you can redistribute it and/or modify
5 
# it under the terms of the GNU General Public License as published by
6 
# the Free Software Foundation; either version 2 of the License, or
7 
# (at your option) any later version.
8 
#
9 
# This program is distributed in the hope that it will be useful,
10 
# but WITHOUT ANY WARRANTY; without even the implied warranty of
11 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 
# GNU General Public License for more details.
13 
#
14 
# You should have received a copy of the GNU General Public License
15 
# along with this program; if not, write to the Free Software
16 
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17 
 
18 
# Please email any bugs, comments, and/or additions to this file to:
19 
# bug-gdb@prep.ai.mit.edu
20 
 
21 
# This file was written by Rob Savoye. (rob@cygnus.com)
22 
 
23 
# These tests don't work for targets can't take arguments...
24 
 
25 
if [target_info exists noargs] then {
26 
    verbose "Skipping a2-run.exp because of noargs."
27 
    return
28 
}
29 
 
30 
# Can't do this test without stdio support.
31 
if [gdb_skip_stdio_test "a2run.exp"] {
32 
    return
33 
}
34 
 
35 
if $tracelevel then {
36 
    strace $tracelevel
37 
}
38 
 
39 
#
40 
# test running programs
41 
#
42 
set prms_id 0
43 
set bug_id 0
44 
 
45 
set testfile "run"
46 
set srcfile ${testfile}.c
47 
set binfile ${objdir}/${subdir}/${testfile}
48 
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
49 
    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
50 
}
51 
 
52 
gdb_exit
53 
gdb_start
54 
gdb_reinitialize_dir $srcdir/$subdir
55 
gdb_load ${binfile}
56 
 
57 
# Run with no arguments.
58 
# On VxWorks this justs make sure the program was run.
59 
gdb_run_cmd
60 
 
61 
if [istarget "*-*-vxworks*"] then {
62 
    set timeout 120
63 
    verbose "Timeout is now $timeout seconds" 2
64 
    gdb_expect {
65 
         "Program exited normally" {
66 
            unresolved "run \"$testfile\" with no args"
67 
        }
68 
         -re "usage:  factorial " {
69 
            pass "run \"$testfile\" with no args"
70 
        }
71 
        timeout {
72 
            fail "(timeout) run \"$testfile\" with no args"
73 
        }
74 
    }
75 
    set timeout 10
76 
    verbose "Timeout is now $timeout seconds" 2
77 
    gdb_expect -re "$gdb_prompt $" {}
78 
} else {
79 
    gdb_expect {
80 
        -re ".*usage:  factorial .*Program exited with code 01.*$gdb_prompt $" {
81 
            pass "run \"$testfile\" with no args"
82 
        }
83 
        -re ".*usage:  factorial .* EXIT code 1.*Program exited normally.*$gdb_prompt $" {
84 
            pass "run \"$testfile\" with no args (exit wrapper)"
85 
        }
86 
        -re ".*$gdb_prompt $" {
87 
            fail "run \"$testfile\" with no args"
88 
            verbose "expect_out is $expect_out(buffer)" 2
89 
        }
90 
        timeout {
91 
            fail "(timeout) run \"$testfile\" no args"
92 
        }
93 
    }
94 
}
95 
# Now run with some arguments
96 
if [istarget "*-*-vxworks*"] then {
97 
    send_gdb "run vxmain \"5\"\n"
98 
    gdb_expect -re "run vxmain \"5\"\r\n" {}
99 
    set timeout 120
100 
    verbose "Timeout is now $timeout seconds" 2
101 
    gdb_expect {
102 
         "Program exited normally" {
103 
            unresolved "run \"$testfile\" with arg"
104 
        }
105 
         "120" {
106 
            pass "run \"$testfile\" with arg"
107 
        }
108 
        timeout {
109 
            fail "(timeout) run \"$testfile\" with arg"
110 
        }
111 
    }
112 
    set timeout 10
113 
    verbose "Timeout is now $timeout seconds" 2
114 
    gdb_expect -re "$gdb_prompt $" {}
115 
} else {
116 
        setup_xfail "mips-idt-*" "arm-*-coff strongarm-*-coff"
117 
        gdb_run_cmd 5
118 
        gdb_expect {
119 
            -re ".*120.*$gdb_prompt $"\
120 
                                { pass "run \"$testfile\" with arg" }
121 
            -re ".*$gdb_prompt $"       { fail "run \"$testfile\" with arg" }
122 
            timeout             { fail "(timeout) run \"$testfile\" with arg" }
123 
        }
124 
}
125 
 
126 
# Run again with same arguments.
127 
setup_xfail "mips-idt-*"
128 
gdb_run_cmd
129 
 
130 
if [istarget "*-*-vxworks*"] then {
131 
    set timeout 120
132 
    verbose "Timeout is now $timeout seconds" 2
133 
    gdb_expect {
134 
         "Program exited normally" {
135 
            unresolved "run \"$testfile\" again with same args"
136 
        }
137 
         "120" { pass "run \"$testfile\" again with same args" }
138 
        timeout { fail "(timeout) run \"$testfile\" again with same args" }
139 
    }
140 
    set timeout 10
141 
    verbose "Timeout is now $timeout seconds" 2
142 
    gdb_expect -re "$gdb_prompt $" {}
143 
} else {
144 
    setup_xfail "arm-*-coff strongarm-*-coff"
145 
    gdb_expect {
146 
            -re ".*120.*$gdb_prompt $"\
147 
                                { pass "run \"$testfile\" again with same args" }
148 
            -re ".*$gdb_prompt $"       { fail "run \"$testfile\" again with same args" }
149 
            timeout             { fail "(timeout) run \"$testfile\" again with same args" }
150 
        }
151 
}
152 
 
153 
# Use "set args" command to specify no arguments as default and run again.
154 
if [istarget "*-*-vxworks*"] then {
155 
    send_gdb "set args main\n"
156 
} else {
157 
    send_gdb "set args\n"
158 
}
159 
gdb_expect -re "$gdb_prompt $"
160 
 
161 
gdb_run_cmd
162 
 
163 
if [istarget "*-*-vxworks*"] then {
164 
    set timeout 120
165 
    verbose "Timeout is now $timeout seconds" 2
166 
    gdb_expect {
167 
         "Program exited normally" {
168 
            unresolved "run after setting args to nil"
169 
        }
170 
         "usage:  factorial " {
171 
            pass "run after setting args to nil"
172 
        }
173 
        timeout {
174 
            fail "(timeout) run after setting args to nil"
175 
        }
176 
    }
177 
    set timeout 10
178 
    verbose "Timeout is now $timeout seconds" 2
179 
    gdb_expect -re "$gdb_prompt $" {}
180 
} else {
181 
    gdb_expect {
182 
        -re ".*usage:  factorial .*$gdb_prompt $" {
183 
            pass "run after setting args to nil"
184 
        }
185 
        -re ".*$gdb_prompt $" {
186 
            fail "run after setting args to nil"
187 
        }
188 
        timeout {
189 
            fail "(timeout) run after setting args to nil"
190 
        }
191 
    }
192 
}
193 
 
194 
# Use "set args" command to specify an argument and run again.
195 
setup_xfail "mips-idt-*"
196 
if [istarget "*-*-vxworks*"] then {
197 
   send_gdb "set args vxmain \"6\"\n"
198 
} else {
199 
        send_gdb "set args 6\n"
200 
}
201 
gdb_expect -re "$gdb_prompt $"
202 
gdb_run_cmd
203 
 
204 
if [istarget "*-*-vxworks*"] then {
205 
    set timeout 120
206 
    verbose "Timeout is now $timeout seconds" 2
207 
    gdb_expect {
208 
         "Program exited normally" {
209 
            unresolved "run \"$testfile\" again after setting args"
210 
        }
211 
         "720" {
212 
            pass "run \"$testfile\" again after setting args"
213 
        }
214 
        timeout {
215 
            fail "(timeout) run \"$testfile\" again after setting args"
216 
        }
217 
    }
218 
    set timeout 10
219 
    verbose "Timeout is now $timeout seconds" 2
220 
    gdb_expect -re "$gdb_prompt $" {}
221 
} else {
222 
    setup_xfail "arm-*-coff strongarm-*-coff"
223 
    gdb_expect {
224 
            -re ".*720.*$gdb_prompt $" {
225 
                pass "run \"$testfile\" again after setting args"
226 
            }
227 
            -re ".*$gdb_prompt $" {
228 
                fail "run \"$testfile\" again after setting args"
229 
            }
230 
            timeout {
231 
                fail "(timeout) run \"$testfile\" again after setting args"
232 
            }
233 
        }
234 
}
235 
 
236 
# GOAL: Test that shell is being used with "run".  For remote debugging
237 
# targets, there is no guarantee that a "shell" (whatever that is) is used.
238 
if ![is_remote target] then {
239 
    send_gdb "run `echo 8`\n"
240 
    gdb_expect {
241 
        -re "Starting program.*40320.*$gdb_prompt $" {
242 
            pass "run \"$testfile\" with shell"
243 
        }
244 
        -re ".*$gdb_prompt $" {
245 
            fail "run \"$testfile\" with shell"
246 
        }
247 
        timeout {
248 
            fail "(timeout) run \"$testfile\" with shell"
249 
        }
250 
    }
251 
}
252 
 
253 
# Reset the default arguments for VxWorks
254 
if [istarget "*-*-vxworks*"] then {
255 
    send_gdb "set args main\n"
256 
    gdb_expect -re ".*$gdb_prompt $" {}
257 
}

powered by: WebSVN 2.1.0

© copyright 1999-2025 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.