From: Duke Leto <jonathan@leto.net>
Date: Sun, 7 Jun 2009 16:50:38 +0000 (-0700)
Subject: Add a test for a thread-enabled debugger
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7dcc656fa9fbe0f5c982c9dc7ed48191afa69ce8;p=p5sagit%2Fp5-mst-13.2.git

Add a test for a thread-enabled debugger
---

diff --git a/lib/perl5db.t b/lib/perl5db.t
index e14cfd3..6c01aa9 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 {