xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.python/py-block.exp (revision 82d56013d7b633d116a93943de88e08335357a7c)
1# Copyright (C) 2010-2019 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 the mechanism
17# exposing values to Python.
18
19load_lib gdb-python.exp
20
21standard_testfile
22
23if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
24    return -1
25}
26
27# Skip all tests if Python scripting is not enabled.
28if { [skip_python_tests] } { continue }
29
30if ![runto_main] then {
31    fail "can't run to main"
32    return 0
33}
34
35global hex decimal
36gdb_breakpoint [gdb_get_line_number "Block break here."]
37gdb_continue_to_breakpoint "Block break here."
38
39# Test initial innermost block.
40gdb_py_test_silent_cmd "python frame = gdb.selected_frame()" "Get Frame" 0
41gdb_py_test_silent_cmd "python block = frame.block()" "Get block" 0
42gdb_test "python print (block)" "<gdb.Block object at $hex>" "check block not None"
43gdb_test "python print (block.function)" "None" "first anonymous block"
44gdb_test "python print (block.start)" "${decimal}" "check start not None"
45gdb_test "python print (block.end)" "${decimal}" "check end not None"
46
47# Test global/static blocks
48gdb_py_test_silent_cmd "python frame = gdb.selected_frame()" "Get Frame" 0
49gdb_py_test_silent_cmd "python block = frame.block()" "Get block" 0
50gdb_test "python print (block.is_global)" "False" "not a global block"
51gdb_test "python print (block.is_static)" "False" "not a static block"
52gdb_py_test_silent_cmd "python gblock = block.global_block" "Get block" 1
53gdb_py_test_silent_cmd "python sblock = block.static_block" "Get block" 1
54gdb_test "python print (gblock.is_global)" "True" "is the global block"
55gdb_test "python print (sblock.is_static)" "True" "is the static block"
56
57# Move up superblock(s) until we reach function block_func.
58gdb_test_no_output "python block = block.superblock" "get superblock"
59gdb_test "python print (block.function)" "None" "second anonymous block"
60gdb_test_no_output "python block = block.superblock" "get superblock 2"
61gdb_test "python print (block.function)" "block_func" \
62         "Print superblock 2 function"
63
64# Switch frames, then test for main block.
65gdb_test "up" ".*"
66gdb_py_test_silent_cmd "python frame = gdb.selected_frame()" "Get Frame 2" 0
67gdb_py_test_silent_cmd "python block = frame.block()" "Get Frame 2's block" 0
68gdb_test "python print (block)" "<gdb.Block object at $hex>" \
69         "Check Frame 2's block not None"
70gdb_test "python print (block.function)" "main" "main block"
71
72
73# Test Block is_valid.  This must always be the last test in this
74# testcase as it unloads the object file.
75delete_breakpoints
76gdb_py_test_silent_cmd "python frame = gdb.selected_frame()" "Get Frame" 0
77gdb_py_test_silent_cmd "python block = frame.block()" "Get Frame block" 0
78gdb_py_test_silent_cmd "python block_iter = iter (block)" "Get Frame block" 0
79gdb_test "python print (block.is_valid())" "True" \
80         "Check block validity"
81gdb_test "python print (block_iter.is_valid())" "True" \
82         "Check block validity"
83gdb_unload
84gdb_test "python print (block.is_valid())" "False" \
85         "Check block validity"
86gdb_test "python print (block_iter.is_valid())" "False" \
87         "Check block validity"
88