gdb/testsuite/gdb.base/paginate-execution-startup.exp

   1 # Copyright (C) 2014-2024 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 # A collection of tests related to pagination resulting from running
  17 # execution commands directly from the command line, with "-ex".
  18
  19 standard_testfile
  20
  21 if {[build_executable "failed to prepare" $testfile $srcfile debug] == -1} {
  22     return -1
  23 }
  24
  25 set file_arg $binfile
  26 if [is_remote host] {
  27   set file_arg [remote_download host $file_arg]
  28 }
  29
  30 # Returns true if the board can 'gdb -ex "start"', false otherwise.
  31
  32 proc probe_can_run_cmdline  {} {
  33     global srcfile file_arg
  34     global GDBFLAGS
  35     global gdb_prompt
  36
  37     with_test_prefix "probe support" {
  38         set test "run to main"
  39
  40         gdb_exit
  41         save_vars { GDBFLAGS } {
  42             append GDBFLAGS " -ex \"start\""
  43             append GDBFLAGS " --args \"$file_arg\""
  44             set res [gdb_spawn]
  45         }
  46         if { $res != 0} {
  47             fail $test
  48             return -1
  49         }
  50
  51         set res -1
  52         gdb_test_multiple "" $test {
  53             -re "main .* at .*$srcfile.*$gdb_prompt $" {
  54                 set res 1
  55                 pass $test
  56             }
  57             -re "Don't know how to run.*$gdb_prompt $" {
  58                 set res 0
  59                 unsupported $test
  60             }
  61         }
  62
  63         # In case the board file wants to send further commands.
  64         gdb_test_no_output "set height unlimited"
  65         return $res
  66     }
  67 }
  68
  69 # Check that we handle pagination correctly when it triggers due to an
  70 # execution command entered directly on the command line.
  71
  72 proc test_fg_execution_pagination_return {} {
  73     global file_arg
  74     global GDBFLAGS
  75     global gdb_prompt pagination_prompt
  76
  77     with_test_prefix "return" {
  78         set test "run to pagination"
  79
  80         gdb_exit
  81
  82         save_vars { GDBFLAGS  } {
  83             append GDBFLAGS " -ex \"set height 2\""
  84             append GDBFLAGS " -ex \"start\""
  85             append GDBFLAGS " --args \"$file_arg\""
  86             set res [gdb_spawn]
  87         }
  88         if { $res != 0} {
  89             fail $test
  90             return $res
  91         }
  92
  93         gdb_test_multiple "" $test {
  94             -re "$pagination_prompt$" {
  95                 pass $test
  96             }
  97             -re "$gdb_prompt $" {
  98                 fail $test
  99             }
 100         }
 101
 102         send_gdb "\n"
 103
 104         set saw_pagination_prompt 0
 105         set test "send \\n to GDB"
 106         gdb_test_multiple "" $test {
 107             -re "$pagination_prompt$" {
 108                 set saw_pagination_prompt 1
 109                 send_gdb "\n"
 110                 exp_continue
 111             }
 112             -re "$gdb_prompt $" {
 113                 gdb_assert $saw_pagination_prompt $test
 114             }
 115         }
 116
 117         gdb_test "p 1" " = 1" "GDB accepts further input"
 118
 119         # In case the board file wants to send further commands.
 120         gdb_test_no_output "set height unlimited"
 121     }
 122 }
 123
 124 # Check that we handle canceling pagination correctly when it triggers
 125 # due to an execution command entered directly on the command line.
 126
 127 proc test_fg_execution_pagination_cancel { how } {
 128     global file_arg
 129     global GDBFLAGS
 130     global gdb_prompt pagination_prompt
 131
 132     with_test_prefix "cancel with $how" {
 133         set test "run to pagination"
 134
 135         gdb_exit
 136
 137         save_vars { GDBFLAGS } {
 138             append GDBFLAGS " -ex \"set height 2\""
 139             append GDBFLAGS " -ex \"start\""
 140             append GDBFLAGS " --args \"$file_arg\""
 141             set res [gdb_spawn]
 142         }
 143         if { $res != 0} {
 144             fail $test
 145             return $res
 146         }
 147
 148         gdb_test_multiple "" $test {
 149             -re "$pagination_prompt$" {
 150                 pass $test
 151             }
 152         }
 153
 154         set test "cancel pagination"
 155         if { $how == "ctrl-c" } {
 156             send_gdb "\003"
 157         } else {
 158             send_gdb "q\n"
 159
 160         }
 161         gdb_test_multiple "" $test {
 162             -re "Quit\r\n$gdb_prompt $" {
 163                 pass $test
 164             }
 165         }
 166
 167         gdb_test "p 1" " = 1" "GDB accepts further input"
 168
 169         # In case the board file wants to send further commands.
 170         gdb_test_no_output "set height unlimited"
 171     }
 172 }
 173
 174 save_vars { INTERNAL_GDBFLAGS } {
 175     set INTERNAL_GDBFLAGS [string map {"-q" ""} $INTERNAL_GDBFLAGS]
 176
 177     if {[probe_can_run_cmdline] > 0} {
 178         test_fg_execution_pagination_return
 179         if ![target_info exists gdb,nointerrupts] {
 180             test_fg_execution_pagination_cancel "ctrl-c"
 181         }
 182         test_fg_execution_pagination_cancel "quit"
 183     }
 184 }