From 84a7cf192564a26c01a0f3f19b63f2b0096f5366 Mon Sep 17 00:00:00 2001
From: Mats Lidell <mats.lidell@lidells.se>
Date: Sun, 7 Jun 2026 11:00:42 +0200
Subject: [PATCH] Add test for python debugger source ibut match

* test/hibtypes-tests.el (hibtypes-tests--hib-python-traceback):
Verify `hib-python-traceback' matches python debugger source ibuts.
---
 ChangeLog              |  5 +++++
 test/hibtypes-tests.el | 46 ++++++++++++++++++++++++++++++++++++++++--
 2 files changed, 49 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9f74fd2a..a230b73b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2026-06-07  Mats Lidell  <matsl@gnu.org>
+
+* test/hibtypes-tests.el (hibtypes-tests--hib-python-traceback):
+    Verify `hib-python-traceback' matches python debugger source ibuts.
+
 2026-06-05  Mats Lidell  <matsl@gnu.org>
 
 * hui.el (kcell-view:label): Declare function.
diff --git a/test/hibtypes-tests.el b/test/hibtypes-tests.el
index 086ca55b..11614f70 100644
--- a/test/hibtypes-tests.el
+++ b/test/hibtypes-tests.el
@@ -3,11 +3,11 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    20-Feb-21 at 23:45:00
-;; Last-Mod:     17-Mar-26 at 17:53:55 by Bob Weiner
+;; Last-Mod:      7-Jun-26 at 15:55:16 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
-;; Copyright (C) 2021-2025  Free Software Foundation, Inc.
+;; Copyright (C) 2021-2026  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
 ;;
 ;; This file is part of GNU Hyperbole.
@@ -371,6 +371,48 @@
       (should (ibtypes::grep-msg)))))
 
 ;; debugger-source
+(ert-deftest hibtypes-tests--hib-python-traceback ()
+  "Verify `hib-python-traceback' finds expected matches.
+Used in debugger-source for Python pdb or traceback, pytype error."
+  (with-temp-buffer
+    (ert-info ("Python traceback and pytype error")
+      (insert "\
+Traceback (most recent call last):
+  File \"test.py\", line 1, in <module>
+    5/0
+    ~^~
+ZeroDivisionError: division by zero
+")
+      (goto-char (point-min))
+      (forward-line 1)
+      (with-mock
+       (mock (hact 'link-to-file-line "test.py" 1) => 'hact)
+       (should (equal 'hact (hib-python-traceback)))
+       (should (string= "test.py:1" (hattr:get 'hbut:current 'lbl-key)))))
+
+    (ert-info ("pdb")
+      (erase-buffer)
+      (insert "\
+ZeroDivisionError: division by zero
+> test.py(1)<module>()
+-> 5/0
+")
+      (goto-char (point-min))
+      (forward-line 1)
+      (with-mock
+       (mock (hact 'link-to-file-line "test.py" 1) => 'hact)
+       (should (equal 'hact (hib-python-traceback)))
+       (should (string= "test.py:1" (hattr:get 'hbut:current 'lbl-key)))))
+
+    (ert-info ("Negative test: Second line on ibut name")
+      (erase-buffer)
+      (insert "\
+<[My
+  Name]> - ls(1)
+")
+      (goto-char (point-min))
+      (forward-line 1)
+      (should-not (hib-python-traceback)))))
 
 ;; pathname-line-and-column