Update ExtUtils-CBuilder to 0.280234

[perl5.git] / lib / perl5db.t

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 3d432ad..450f4d0 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -31,8 +31,6 @@ BEGIN {
     $ENV{PERL_RL} = 'Perl'; # Suppress system Term::ReadLine::Gnu
 }
 
-plan(127);
-
 my $rc_filename = '.perldb';
 
 sub rc {
@@ -2901,6 +2899,43 @@ SKIP:
     );
 }
 
+SKIP:
+{
+    $Config{usethreads}
+      or skip "need threads to test debugging threads", 1;
+    my $wrapper = DebugWrap->new(
+        {
+            cmds =>
+            [
+                'c',
+                'q',
+            ],
+            prog => '../lib/perl5db/t/rt-124203',
+        }
+    );
+
+    $wrapper->output_like(qr/In the thread/, "[perl #124203] the thread ran");
+
+    $wrapper->output_like(qr/Finished/, "[perl #124203] debugger didn't deadlock");
+
+    $wrapper = DebugWrap->new(
+        {
+            cmds =>
+            [
+                'c',
+                'q',
+            ],
+            prog => '../lib/perl5db/t/rt-124203b',
+        }
+    );
+
+    $wrapper->output_like(qr/In the thread/, "[perl #124203] the thread ran (lvalue)");
+
+    $wrapper->output_like(qr/Finished One/, "[perl #124203] debugger didn't deadlock (lvalue)");
+}
+
+done_testing();
+
 END {
     1 while unlink ($rc_filename, $out_fn);
 }