test for i Foo failing to load mro

test for #17660

1 files changed, 25 insertions, 0 deletions

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 450f4d067b..421229a54a 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -2899,6 +2899,31 @@ SKIP:
     );
 }
 
+{
+    # gh #17660
+    my $wrapper = DebugWrap->new(
+        {
+            cmds =>
+            [
+                'b 13',
+                'c',
+                'i Foo',
+                'q',
+            ],
+            prog => '../lib/perl5db/t/gh-17660',
+        }
+    );
+
+    $wrapper->output_unlike(
+        qr/Undefined subroutine &mro::get_linear_isa/ms,
+        q/mro needs to be loaded/,
+       );
+    $wrapper->output_like(
+        qr/Foo 1.000, Bar 2.000/,
+        q/check for reasonable result/,
+       );
+}
+
 SKIP:
 {
     $Config{usethreads}