gdb/testsuite/gdb.gdb/selftest.exp

   1 # Copyright 1988-2020 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 <http://www.gnu.org/licenses/>.
  15
  16 # This file was written by Rob Savoye. (rob@cygnus.com)
  17
  18 load_lib selftest-support.exp
  19
  20 proc test_with_self { } {
  21     global gdb_prompt
  22     global decimal
  23     global timeout
  24     global inferior_spawn_id
  25
  26     # When GDB is built as a C++ program, disassemble shows the full
  27     # prototype.
  28     set cxx_main_args_re [string_to_regexp "(int, char**)"]
  29
  30     # disassemble yourself
  31     gdb_test "x/10i main" \
  32             "x/10i.*main.*main($cxx_main_args_re)?.$decimal.*main($cxx_main_args_re)?.$decimal.*" \
  33             "disassemble main"
  34
  35     # We'll need this when we send a ^C to GDB.  Need to do it before we
  36     # run the program and gdb starts saving and restoring tty states.
  37     gdb_test "shell stty intr '^C'" ".*" \
  38         "set interrupt character in test_with_self"
  39
  40     # FIXME: If we put this after the run to main, the first list
  41     # command doesn't print the same line as the current line where
  42     # gdb is stopped.
  43     gdb_test_no_output "set listsize 1" "set listsize to 1"
  44
  45     # do we have a version number ?
  46     gdb_test_multiple "print version" "printed version" {
  47         -re ".\[0-9\]+ = .\[0-9.\]+.*$gdb_prompt $" {
  48             pass "printed version as string"
  49         }
  50         -re ".\[0-9\]+ = +0x.*\[0-9.\]+.*$gdb_prompt $" {
  51             pass "printed version as pointer"
  52         }
  53         -re ".\[0-9\]+ = +.+ +0x.*\[0-9.\]+.*$gdb_prompt $" {
  54             pass "printed version with cast"
  55         }
  56     }
  57
  58     # start the "xgdb" process
  59     if [target_info exists gdb,noinferiorio] {
  60         # With no way to interact with the inferior GDB, all we can do
  61         # is let it run.
  62         send_gdb "continue\n"
  63         # Wait a bit while the inferior gdb gets to its prompt.
  64         sleep 1
  65     } else {
  66         set banner [multi_line \
  67                         "GNU gdb \[0-9\.\]*\[^\r\n\]*" \
  68                         "Copyright \\(C\\) \[0-9\]* Free Software Foundation, Inc\." \
  69                         "License GPLv3\\+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>" \
  70                         "This is free software: you are free to change and redistribute it\." \
  71                         "There is NO WARRANTY, to the extent permitted by law\." \
  72                         "Type \"show copying\" and \"show warranty\" for details\." \
  73                         "This GDB was configured as .*" \
  74                         "$gdb_prompt $"]
  75         set test "xgdb is at prompt"
  76         gdb_test_multiple "continue" $test {
  77             -i "$inferior_spawn_id"
  78             -re "$banner" {
  79                 pass $test
  80             }
  81         }
  82
  83         # set xgdb prompt so we can tell which is which
  84         send_inferior "set prompt (xgdb) \n"
  85         set msg "Set xgdb_prompt"
  86         gdb_test_multiple "" $msg {
  87             -i "$inferior_spawn_id"
  88             -re "\[(\]xgdb\[)\].*\[(\]xgdb\[)\] $" {
  89                 pass $msg
  90             }
  91         }
  92     }
  93
  94     # kill the xgdb process
  95     if ![target_info exists gdb,nointerrupts] {
  96         set description "send ^C to child process"
  97         send_gdb "\003"
  98         # "Thread 1" is displayed iff Guile support is linked in.
  99         gdb_expect {
 100             -re "(Thread .*|Program) received signal SIGINT.*$gdb_prompt $" {
 101                 pass "$description"
 102             }
 103             -re ".*$gdb_prompt $" {
 104                 fail "$description"
 105             }
 106             timeout {
 107                 fail "$description (timeout)"
 108             }
 109         }
 110     }
 111
 112     set description "send SIGINT signal to child process"
 113     gdb_test_multiple "signal SIGINT" "$description" {
 114         -re "^signal SIGINT\r\nContinuing with signal SIGINT.\r\nQuit\r\n.* $" {
 115             pass "$description"
 116         }
 117     }
 118
 119     set description "send ^C to child process again"
 120     send_gdb "\003"
 121     gdb_expect {
 122         -re "(Thread .*|Program) received signal SIGINT.*$gdb_prompt $" {
 123             pass "$description"
 124         }
 125         -re ".*$gdb_prompt $" {
 126             fail "$description"
 127         }
 128         timeout {
 129             fail "$description (timeout)"
 130         }
 131     }
 132
 133
 134     # Switch back to the GDB thread if Guile support is linked in.
 135     # "signal SIGINT" could also switch the current thread.
 136     gdb_test "thread 1" {\[Switching to thread 1 .*\].*}
 137
 138     # get a stack trace
 139     #
 140     # This fails on some linux systems for unknown reasons.  On the
 141     # systems where it fails, sometimes it works fine when run manually.
 142     # The testsuite failures may not be limited to just aout systems.
 143     setup_xfail "i*86-pc-linuxaout-gnu"
 144     set description "backtrace through signal handler"
 145     gdb_test_multiple "backtrace" "$description" {
 146         -re "#0.*(read|poll).*in main \\(.*\\) at .*gdb\\.c.*$gdb_prompt $" {
 147             pass "$description"
 148         }
 149     }
 150
 151     # Restart gdb in case next test expects it to be started already.
 152     return 0
 153 }
 154
 155 do_self_tests captured_main test_with_self