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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.base/] [term.exp] - Blame information for rev 24

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
#   Copyright 1988, 1990, 1991, 1992, 1994, 1995, 1996, 1997, 1999, 2007, 2008
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 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
# Please email any bugs, comments, and/or additions to this file to:
18
# bug-gdb@prep.ai.mit.edu
19
 
20
# This file was written by Rob Savoye. (rob@cygnus.com)
21
 
22
if $tracelevel then {
23
    strace $tracelevel
24
}
25
 
26
# Don't try this for remote targets.
27
if [is_remote target] then {
28
    continue
29
}
30
 
31
if [target_info exists noargs] then {
32
    verbose "Skipping term.exp because of noargs."
33
    return
34
}
35
 
36
gdb_start
37
 
38
#
39
# test running programs
40
#
41
set prms_id 0
42
set bug_id 0
43
 
44
set testfile "run"
45
set srcfile ${testfile}.c
46
set binfile ${objdir}/${subdir}/${testfile}
47
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
48
     untested term.exp
49
     return -1
50
}
51
 
52
gdb_exit
53
gdb_start
54
delete_breakpoints
55
gdb_reinitialize_dir $srcdir/$subdir
56
gdb_load ${binfile}
57
 
58
gdb_test "set print sevenbit-strings" "" "test set print sevenbit-strings"
59
gdb_test "set print address off" "" "test set print address off"
60
gdb_test "set width 0" "" "test set width 0"
61
gdb_test "info terminal" "No saved terminal information.*" "test info terminal"
62
gdb_run_cmd 5
63
gdb_expect {
64
    -re ".*120.*Program exited normally.*$gdb_prompt $" {
65
        gdb_test "info terminal" "No saved terminal information.*" "test info terminal #2"
66
    }
67
    default {
68
        fail "term.exp, factorial didn't run to completion for info terminal"
69
    }
70
}
71
 
72
# In mid-execution
73
gdb_breakpoint main
74
gdb_run_cmd 5
75
gdb_expect {
76
    -re ".*Breakpoint \[0-9\]+,.*main.*if .argc != 2.*$gdb_prompt $" {
77
        gdb_test "info terminal" "Inferior's terminal status .currently saved by GDB.:.*" "info terminal at breakpoint"
78
    }
79
    -re ".*$gdb_prompt $"       { fail "info terminal at breakpoint" }
80
    timeout             { fail "(timeout) info terminal at breakpoint" }
81
}

powered by: WebSVN 2.1.0

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