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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [testsuite/] [gdb.base/] [term.exp] - Blame information for rev 842

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 227 jeremybenn
#   Copyright 1988, 1990, 1991, 1992, 1994, 1995, 1996, 1997, 1999, 2007,
2
#   2008, 2009, 2010 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 3 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, see .
16
 
17
# This file was written by Rob Savoye. (rob@cygnus.com)
18
 
19
if $tracelevel then {
20
    strace $tracelevel
21
}
22
 
23
# Don't try this for remote targets.
24
if [is_remote target] then {
25
    continue
26
}
27
 
28
if [target_info exists noargs] then {
29
    verbose "Skipping term.exp because of noargs."
30
    return
31
}
32
 
33
gdb_start
34
 
35
#
36
# test running programs
37
#
38
set prms_id 0
39
set bug_id 0
40
 
41
if { [prepare_for_testing term.exp term run.c] } {
42
    return -1
43
}
44
 
45
gdb_test "set print sevenbit-strings" "" "test set print sevenbit-strings"
46
gdb_test "set print address off" "" "test set print address off"
47
gdb_test "set width 0" "" "test set width 0"
48
gdb_test "info terminal" "No saved terminal information.*" "test info terminal"
49
gdb_run_cmd 5
50
gdb_expect {
51
    -re ".*120.*Program exited normally.*$gdb_prompt $" {
52
        gdb_test "info terminal" "No saved terminal information.*" "test info terminal #2"
53
    }
54
    default {
55
        fail "term.exp, factorial didn't run to completion for info terminal"
56
    }
57
}
58
 
59
# In mid-execution
60
gdb_breakpoint main
61
gdb_run_cmd 5
62
gdb_expect {
63
    -re ".*Breakpoint \[0-9\]+,.*main.*if .argc != 2.*$gdb_prompt $" {
64
        gdb_test "info terminal" "Inferior's terminal status .currently saved by GDB.:.*" "info terminal at breakpoint"
65
    }
66
    -re ".*$gdb_prompt $"       { fail "info terminal at breakpoint" }
67
    timeout             { fail "(timeout) info terminal at breakpoint" }
68
}

powered by: WebSVN 2.1.0

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