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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.base/] [detach.exp] - Blame information for rev 25

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 25 jlechner
#   Copyright 2003, 2007, 2008 Free Software Foundation, Inc.
2
 
3
# This program is free software; you can redistribute it and/or modify
4
# it under the terms of the GNU General Public License as published by
5
# the Free Software Foundation; either version 3 of the License, or
6
# (at your option) any later version.
7
#
8
# This program is distributed in the hope that it will be useful,
9
# but WITHOUT ANY WARRANTY; without even the implied warranty of
10
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11
# GNU General Public License for more details.
12
#
13
# You should have received a copy of the GNU General Public License
14
# along with this program.  If not, see .  */
15
 
16
# Please email any bugs, comments, and/or additions to this file to:
17
# bug-gdb@prep.ai.mit.edu
18
 
19
# Test running a program from the GDB prompt and then detaching it.
20
# NOTE: This test could be much more thorough.
21
 
22
if $tracelevel then {
23
        strace $tracelevel
24
}
25
 
26
set prms_id 0
27
set bug_id 0
28
 
29
# Only GNU/Linux is known to support this.
30
if { ! [istarget "*-*-linux*"] } {
31
  return 0
32
}
33
 
34
# Are we on a target board?
35
if [is_remote target] then {
36
    return 0
37
}
38
 
39
set testfile "attach"
40
set srcfile  ${testfile}.c
41
set binfile  ${objdir}/${subdir}/${testfile}
42
set escapedbinfile  [string_to_regexp ${objdir}/${subdir}/${testfile}]
43
 
44
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
45
     untested detach.exp
46
     return -1
47
}
48
 
49
proc do_detach_tests {} {
50
  global srcdir
51
  global binfile
52
  global escapedbinfile
53
  global subdir
54
  global pass
55
 
56
  runto_main
57
  gdb_test "set should_exit = 1" "" "set should_exit, $pass"
58
  gdb_test "detach" "Detaching from program: .*$escapedbinfile, .*" "detach, $pass"
59
}
60
 
61
# Start with a fresh gdb
62
gdb_exit
63
gdb_start
64
gdb_reinitialize_dir $srcdir/$subdir
65
gdb_load ${binfile}
66
 
67
global pass
68
set pass "one"
69
do_detach_tests
70
 
71
# Wait a moment and do it again.
72
exec sleep 1
73
 
74
set pass "two"
75
do_detach_tests
76
 
77
return 0

powered by: WebSVN 2.1.0

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