Add a test for a thread-enabled debugger

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/perl5db.t b/lib/perl5db.t
index e14cfd30dd..6c01aa9138 100755
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -26,7 +26,7 @@ my $dev_tty = '/dev/tty';
     }
 }
 
-plan(3);
+plan(4);
 
 sub rc {
     open RC, ">", ".perldb" or die $!;
@@ -88,6 +88,12 @@ like($contents, qr/sub factorial/,
     like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table');
 }
 
+{
+    local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1";
+    my $output = runperl(switches => [ '-dt' ], progfile => '../lib/perl5db/t/symbol-table-bug');
+    like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table when running with thread support');
+}
+
 # clean up.
 
 END {