From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <lienze@sourceware.org>
Received: by sourceware.org (Postfix, from userid 7872)
 id 74D82385840A; Sun, 24 Jul 2022 04:11:30 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 74D82385840A
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable
From: Enze Li <lienze@sourceware.org>
To: gdb-cvs@sourceware.org
Subject: [binutils-gdb] gdb/testsuite: add a clear test to py-breakpoint.exp
X-Act-Checkin: binutils-gdb
X-Git-Author: Enze Li <enze.li@hotmail.com>
X-Git-Refname: refs/heads/master
X-Git-Oldrev: c444385fad25c720ca6f7407f748f1d601463938
X-Git-Newrev: ea892bdc4b6da5782c6ea6273aff499fb5fd5e6f
Message-Id: <20220724041130.74D82385840A@sourceware.org>
Date: Sun, 24 Jul 2022 04:11:30 +0000 (GMT)
X-BeenThere: gdb-cvs@sourceware.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gdb-cvs mailing list <gdb-cvs.sourceware.org>
List-Unsubscribe: <https://sourceware.org/mailman/options/gdb-cvs>,
 <mailto:gdb-cvs-request@sourceware.org?subject=unsubscribe>
List-Archive: <https://sourceware.org/pipermail/gdb-cvs/>
List-Help: <mailto:gdb-cvs-request@sourceware.org?subject=help>
List-Subscribe: <https://sourceware.org/mailman/listinfo/gdb-cvs>,
 <mailto:gdb-cvs-request@sourceware.org?subject=subscribe>
X-List-Received-Date: Sun, 24 Jul 2022 04:11:30 -0000

https://sourceware.org/git/gitweb.cgi?p=3Dbinutils-gdb.git;h=3Dea892bdc4b6d=
a5782c6ea6273aff499fb5fd5e6f

commit ea892bdc4b6da5782c6ea6273aff499fb5fd5e6f
Author: Enze Li <enze.li@hotmail.com>
Date:   Fri Jun 24 21:57:54 2022 +0800

    gdb/testsuite: add a clear test to py-breakpoint.exp
   =20
    This patch adds a test case to try to clear an internal python
    breakpoint using the clear command.
   =20
    This was suggested by Pedro during a code review of the following
    commit.
   =20
      commit a5c69b1e49bae4d0dcb20f324cebb310c63495c6
      Date:   Sun Apr 17 15:09:46 2022 +0800
   =20
        gdb: fix using clear command to delete non-user breakpoints(PR cli/=
7161)
   =20
    Tested on x86_64 openSUSE Tumbleweed.

Diff:
---
 gdb/testsuite/gdb.python/py-breakpoint.exp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gdb/testsuite/gdb.python/py-breakpoint.exp b/gdb/testsuite/gdb=
.python/py-breakpoint.exp
index 58b1af3a0da..583408e10af 100644
--- a/gdb/testsuite/gdb.python/py-breakpoint.exp
+++ b/gdb/testsuite/gdb.python/py-breakpoint.exp
@@ -309,6 +309,26 @@ proc_with_prefix test_bkpt_internal { } {
     if ![runto_main] then {
 	return 0
     }
+    delete_breakpoints
+    gdb_py_test_silent_cmd  "python bp1 =3D gdb.Breakpoint (\"main\", type=
=3Dgdb.BP_BREAKPOINT, wp_class=3Dgdb.WP_WRITE, internal=3DTrue )" \
+	"Set internal breakpoint" 0
+
+    set bp_num [get_python_valueof bp1.number "*DEFAULT*"]
+    set bp_addr [gdb_get_bp_addr $bp_num]
+
+    gdb_test "maint info break $bp_num" \
+	"$bp_num.*$bp_addr.*" \
+	"maint info breakpoint \$bp_num"
+
+    gdb_test "python gdb.execute(\'clear *$bp_addr\')" \
+	".*No breakpoint at \\*$bp_addr.*" \
+	"clear internal breakpoint"
+
+    # Check again, make sure that GDB really didn't delete the internal br=
eakpoint.
+    gdb_test "maint info break $bp_num" \
+	"$bp_num.*$bp_addr.*" \
+	"maint info breakpoint \$bp_num after clear"
+
     delete_breakpoints
     gdb_py_test_silent_cmd  "python wp1 =3D gdb.Breakpoint (\"result\", ty=
pe=3Dgdb.BP_WATCHPOINT, wp_class=3Dgdb.WP_WRITE, internal=3DTrue )" \
 	"Set watchpoint" 0