gdb/testsuite/gdb.python/py-framefilter.exp

   1 # Copyright (C) 2013-2016 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 is part of the GDB testsuite.  It tests Python-based
  17 # frame-filters.
  18
  19 load_lib gdb-python.exp
  20
  21 standard_testfile
  22
  23 # We cannot use prepare_for_testing as we have to set the safe-patch
  24 # to check objfile and progspace printers.
  25 if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
  26     return -1
  27 }
  28
  29 # Start with a fresh gdb.
  30 gdb_exit
  31 gdb_start
  32
  33 # Skip all tests if Python scripting is not enabled.
  34 if { [skip_python_tests] } { continue }
  35
  36 gdb_test "info frame-filter" \
  37     "No frame filters\\." \
  38     "info frame filter before loading filters"
  39
  40 # Make the -gdb.py script available to gdb, it is automagically loaded by gdb.
  41 # Care is taken to put it in the same directory as the binary so that
  42 # gdb will find it.
  43 set remote_obj_python_file \
  44     [remote_download \
  45          host ${srcdir}/${subdir}/${testfile}-gdb.py.in \
  46          [standard_output_file ${testfile}-gdb.py]]
  47
  48 gdb_reinitialize_dir $srcdir/$subdir
  49 gdb_test_no_output "set auto-load safe-path ${remote_obj_python_file}" \
  50     "set auto-load safe-path"
  51 gdb_load ${binfile}
  52 # Verify gdb loaded the script.
  53 gdb_test "info auto-load python-scripts" "Yes.*/${testfile}-gdb.py.*" \
  54     "Test auto-load had loaded python scripts"
  55
  56 if ![runto_main] then {
  57     perror "couldn't run to breakpoint"
  58     return
  59 }
  60 gdb_test_no_output "set python print-stack full" \
  61     "Set python print-stack to full"
  62
  63 # Load global frame-filters
  64 set remote_python_file [gdb_remote_download host \
  65                             ${srcdir}/${subdir}/${testfile}.py]
  66 gdb_test_no_output "python exec (open ('${remote_python_file}').read ())" \
  67     "Load python file"
  68
  69 gdb_breakpoint [gdb_get_line_number "Backtrace end breakpoint"]
  70 gdb_breakpoint [gdb_get_line_number "Inner test breakpoint"]
  71 gdb_continue_to_breakpoint "Inner test breakpoint"
  72
  73 # Test multiple local blocks.
  74 gdb_test "bt full no-filters" \
  75     ".*#0.*end_func.*h = 9.*f = 42.*g = 19.*bar = $hex \"Inside block x2\".*d = 15.*e = 14.*foo = $hex \"Inside block\".*str = $hex \"The End\".*st2 = $hex \"Is Near\".*b = 12.*c = 5.*" \
  76     "bt full no-filters"
  77 gdb_test "bt full" \
  78     ".*#0.*cnuf_dne.*h = 9.*f = 42.*g = 19.*bar = $hex \"Inside block x2\".*d = 15.*e = 14.*foo = $hex \"Inside block\".*str = $hex \"The End\".*st2 = $hex \"Is Near\".*b = 12.*c = 5.*" \
  79     "bt full with filters"
  80
  81 # Test pagination can be aborted even for frame filters.
  82 gdb_test_no_output "set height 5" "pagination quit - set height limited"
  83 foreach bttype [list "bt" "bt full"] {
  84     set test "pagination quit - $bttype"
  85     gdb_test_multiple "$bttype" $test {
  86         -re "$pagination_prompt$" {
  87             pass $test
  88         }
  89     }
  90     gdb_test "q" "^q\r\nQuit" "pagination quit - $bttype - q"
  91 }
  92 gdb_test_no_output "set height unlimited" "pagination quit - set height unlimited"
  93
  94 gdb_continue_to_breakpoint "Backtrace end breakpoint"
  95
  96 # Test set/show
  97 gdb_test "info frame-filter" \
  98     ".*900.*Yes.*Elider.*100.*Yes.*Reverse.*10.*.*No.*Object.*1.*" \
  99     "info frame filter before setting priority"
 100 gdb_test "show frame-filter priority global Elider" \
 101     "Priority of filter 'Elider' in list 'global' is: 900" \
 102     "show frame-filter priority global Elider before setting"
 103 gdb_test_no_output  "set frame-filter priority global Elider 1000" \
 104     "set frame-filter priotiy global Elider 1000"
 105 gdb_test "show frame-filter priority global Elider" \
 106         "Priority of filter 'Elider' in list 'global' is: 1000" \
 107         "show frame-filter priority global Elider after setting"
 108 gdb_test "info frame-filter" \
 109     ".*1000.*Yes.*Elider.*100.*Yes.*Reverse.*10.*.*No.*Object.*1.*" \
 110     "info frame filter after setting priority"
 111 gdb_test "set frame-filter priority global NoSuchFilter 900" \
 112     "frame-filter 'NoSuchFilter' not found." \
 113     "set priority of a non-existing filter"
 114
 115 # Test enable/disable
 116 gdb_test "info frame-filter" \
 117     ".*1000.*Yes.*Elider.*100.*Yes.*Reverse.*10.*.*No.*Object.*1.*" \
 118     "info frame filter before disable frame filter"
 119 gdb_test_no_output  "disable frame-filter global Elider" \
 120     "disable frame-filter global Elider"
 121 gdb_test "info frame-filter" \
 122     ".*1000.*No.*Elider.*100.*Yes.*Reverse.*10.*.*No.*Object.*1.*" \
 123     "info frame filter after disable frame filter"
 124 gdb_test_no_output  "enable frame-filter global Elider" \
 125     "enable frame-filter global Elider"
 126 gdb_test "info frame-filter" \
 127     ".*1000.*Yes.*Elider.*100.*Yes.*Reverse.*10.*.*No.*Object.*1.*" \
 128     "info frame filter after reenabling frame filter"
 129 gdb_test "disable frame-filter global NoSuchFilter" \
 130     "frame-filter 'NoSuchFilter' not found." \
 131     "disable a non-existing filter"
 132
 133 # Test no-filters
 134 gdb_test "bt no-filters" \
 135     ".*#0.*end_func.*#22.*in func1.*#27.*in main \\(\\).*" \
 136     "bt no-filters"
 137
 138 # Test reverse
 139 gdb_test "bt" \
 140     ".*#0.*cnuf_dne.*#22.*in 1cnuf.*#27.*in niam \\(\\).*" \
 141     "bt with frame filters"
 142
 143 # Disable Reverse
 144 gdb_test_no_output "disable frame-filter global Reverse" \
 145     "disable frame-filter global Reverse"
 146 gdb_test "bt" \
 147     ".*#0.*end_func.*#22.*in func1.*#27.*in main \\(\\).*" \
 148     "bt with frame-filter Reverse disabled"
 149 gdb_test "bt -2" \
 150     ".*#26.*func5.*#27.*in main \\(\\).*" \
 151     "bt -2 with frame-filter Reverse disabled"
 152 gdb_test "bt 3" \
 153     ".*#0.*end_func.*#1.*in funca \\(\\).*#2.*in funcb \\(j=10\\).*" \
 154     "bt 3 with frame-filter Reverse disabled"
 155 gdb_test "bt no-filter full" \
 156     ".*#0.*end_func.*str = $hex \"The End\".*st2 = $hex \"Is Near\".*b = 12.*c = 5.*#1.*in funca \\(\\).*#2.*in funcb \\(j=10\\).*bar = \{a = 42, b = 84\}.*" \
 157     "bt no-filters full with Reverse disabled"
 158 gdb_test "bt full" \
 159     ".*#0.*end_func.*str = $hex \"The End\".*st2 = $hex \"Is Near\".*b = 12.*c = 5.*#1.*in funca \\(\\).*#2.*in funcb \\(j=10\\).*bar = \{a = 42, b = 84\}.*#22.*in func1 \\(\\).*#23.*in func2 \\(f=3\\).*elided = $hex \"Elided frame\".*fb = \{nothing = $hex \"Elided Foo Bar\", f = 84, s = 38\}.*bf = $hex.*" \
 160     "bt full with Reverse disabled"
 161
 162 # Test set print frame-arguments
 163 # none
 164 gdb_test_no_output "set print frame-arguments none" \
 165     "turn off frame arguments"
 166 gdb_test "bt no-filter 1" \
 167     "#0.*end_func \\(foo=\.\.\., bar=\.\.\., fb=\.\.\., bf=\.\.\.\\) at .*py-framefilter.c.*" \
 168     "bt no-filter 1 no args"
 169 gdb_test "bt 1" \
 170     "#0.*end_func \\(foo=\.\.\., bar=\.\.\., fb=\.\.\., bf=\.\.\.\\) at .*py-framefilter.c.*" \
 171     "bt 1 no args"
 172
 173 # scalars
 174 gdb_test_no_output "set print frame-arguments scalars" \
 175     "turn frame arguments to scalars only"
 176 gdb_test "bt no-filter 1" \
 177     "#0.*end_func \\(foo=21, bar=$hex \"Param\", fb=$hex, bf=\.\.\.\\) at .*py-framefilter.c.*" \
 178     "bt no-filter 1 scalars"
 179 gdb_test "bt 1" \
 180     "#0.*end_func \\(foo=21, bar=$hex \"Param\", fb=$hex, bf=\.\.\.\\) at .*py-framefilter.c.*" \
 181     "bt 1 scalars"
 182
 183 # all
 184 gdb_test_no_output "set print frame-arguments all" \
 185     "turn on frame arguments"
 186 gdb_test "bt no-filter 1" \
 187     "#0.*end_func \\(foo=21, bar=$hex \"Param\", fb=$hex, bf=\{nothing = $hex \"Foo Bar\", f = 42, s = 19\}\\) at .*py-framefilter.c.*" \
 188     "bt no-filter 1 all args"
 189 gdb_test "bt 1" \
 190     "#0.*end_func \\(foo=21, bar=$hex \"Param\", fb=$hex, bf=\{nothing = $hex \"Foo Bar\", f = 42, s = 19\}\\) at .*py-framefilter.c.*" \
 191     "bt 1 all args"
 192
 193 # set print address off
 194 gdb_test_no_output "set print address off" \
 195     "Turn off address printing"
 196 gdb_test "bt no-filter 1" \
 197     "#0  end_func \\(foo=21, bar=\"Param\", fb=, bf=\{nothing = \"Foo Bar\", f = 42, s = 19\}\\) at .*py-framefilter.c.*" \
 198     "bt no-filter 1 no address"
 199 gdb_test "bt 1" \
 200     "#0  end_func \\(foo=21, bar=\"Param\", fb=, bf=\{nothing = \"Foo Bar\", f = 42, s = 19\}\\) at .*py-framefilter.c.*" \
 201     "bt 1 no addresss"
 202
 203 gdb_test_no_output "set python print-stack message" \
 204     "Set python print-stack to message for Error filter"
 205 gdb_test_no_output  "enable frame-filter global Error" \
 206     "enable frame-filter global Error"
 207 set test "bt 1 with Error filter"
 208 gdb_test_multiple "bt 1" $test {
 209     -re "Python Exception .*whoops:.*$gdb_prompt $" {
 210         pass $test
 211     }
 212 }
 213
 214 # Test with no debuginfo
 215
 216 # We cannot use prepare_for_testing as we have to set the safe-patch
 217 # to check objfile and progspace printers.
 218 if {[build_executable $testfile.exp $testfile $srcfile {nodebug}] == -1} {
 219     return -1
 220 }
 221
 222 # Start with a fresh gdb.
 223 gdb_exit
 224 gdb_start
 225
 226 # Skip all tests if Python scripting is not enabled.
 227 if { [skip_python_tests] } { continue }
 228
 229 # Make the -gdb.py script available to gdb, it is automagically loaded by gdb.
 230 # Care is taken to put it in the same directory as the binary so that
 231 # gdb will find it.
 232 set remote_obj_python_file \
 233     [remote_download \
 234          host ${srcdir}/${subdir}/${testfile}-gdb.py.in \
 235          [standard_output_file ${testfile}-gdb.py]]
 236
 237 gdb_reinitialize_dir $srcdir/$subdir
 238 gdb_test_no_output "set auto-load safe-path ${remote_obj_python_file}" \
 239     "set auto-load safe-path for no debug info"
 240 gdb_load ${binfile}
 241
 242 # Verify gdb loaded the script.
 243 gdb_test "info auto-load python-scripts" "Yes.*/${testfile}-gdb.py.*" \
 244     "Set autoload path for no debug info tests"
 245 if ![runto_main] then {
 246     perror "couldn't run to breakpoint"
 247     return
 248 }
 249
 250 gdb_test_no_output "set python print-stack full" \
 251     "set python print-stack full for no debuginfo tests"
 252
 253 # Load global frame-filters
 254 set remote_python_file [gdb_remote_download host \
 255                             ${srcdir}/${subdir}/${testfile}.py]
 256 gdb_test_no_output "python exec (open ('${remote_python_file}').read ())" \
 257     "Load python file for no debuginfo tests"
 258
 259 # Disable Reverse
 260 gdb_test_no_output "disable frame-filter global Reverse" \
 261     "disable frame-filter global Reverse for no debuginfo"
 262 gdb_test "bt" \
 263     ".*#0..*in main \\(\\).*" \
 264     "bt for no debuginfo"
 265 gdb_test "bt full" \
 266     ".*#0..*in main \\(\\).*" \
 267     "bt full for no debuginfo"
 268 gdb_test "bt no-filters" \
 269     ".*#0..*in main \\(\\).*" \
 270     "bt no filters for no debuginfo"
 271 gdb_test "bt no-filters full" \
 272     ".*#0..*in main \\(\\).*" \
 273     "bt no-filters full no debuginfo"