In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9b76ae71c6fcdda7d153f2deb2f79e654d7d097b?hp=b953482e2d970eeb88de96a38c087d03db83a5cd>
- Log ----------------------------------------------------------------- commit 9b76ae71c6fcdda7d153f2deb2f79e654d7d097b Author: Rafael Garcia-Suarez <[email protected]> Date: Mon Jun 22 12:00:28 2009 +0200 Fix skipping tests with threads in last commit M lib/perl5db.t commit ad6656ab324af5697588484c4746401e1770fa57 Merge: eb78bf8... b953482... Author: Duke Leto <[email protected]> Date: Mon Jun 22 00:13:53 2009 -0700 Merge branch 'blead' into debugger_symbols commit eb78bf8f0da016f321bb20da1ca06461c3356b39 Merge: 9c955c4... 4231740... Author: Duke Leto <[email protected]> Date: Sun Jun 14 12:35:25 2009 -0700 Merge branch 'blead' into debugger_symbols commit 9c955c4d43e6b85fa829444681b37167f0dea301 Author: Duke Leto <[email protected]> Date: Sun Jun 14 12:34:55 2009 -0700 Add a test to the debugger about not having threads M lib/perl5db.t commit f63574b540b77d4587478e51b1c4b2da2c769597 Author: Duke Leto <[email protected]> Date: Sun Jun 14 12:06:55 2009 -0700 Skip threaded debugger tests unless $Config{usethreads} M lib/perl5db.t commit 7dcc656fa9fbe0f5c982c9dc7ed48191afa69ce8 Author: Duke Leto <[email protected]> Date: Sun Jun 7 09:50:38 2009 -0700 Add a test for a thread-enabled debugger M lib/perl5db.t ----------------------------------------------------------------------- Summary of changes: lib/perl5db.t | 23 ++++++++++++++++++++++- 1 files changed, 22 insertions(+), 1 deletions(-) diff --git a/lib/perl5db.t b/lib/perl5db.t index e14cfd3..22781d4 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -8,6 +8,7 @@ BEGIN { use strict; use warnings; +use Config; BEGIN { if (!-c "/dev/null") { @@ -26,7 +27,7 @@ my $dev_tty = '/dev/tty'; } } -plan(3); +plan(5); sub rc { open RC, ">", ".perldb" or die $!; @@ -88,6 +89,26 @@ like($contents, qr/sub factorial/, like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table'); } +SKIP: { + if ( $Config{usethreads} ) { + skip('This perl has threads, skipping non-threaded debugger tests'); + } else { + my $error = 'This Perl not built to support threads'; + my $output = runperl( switches => [ '-dt' ] ); + like($output, qr/$error/, 'Perl debugger correctly complains that it was not built with threads'); + } + +} +SKIP: { + if ( $Config{usethreads} ) { + 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'); + } else { + skip("This perl is not threaded, skipping threaded debugger tests"); + } +} + # clean up. END { -- Perl5 Master Repository
