diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-28 09:24:46 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-28 16:40:09 -0700 |
| commit | d142a0767037572181a72aa9b71be2ad3a6e1e98 (patch) | |
| tree | 8d47a0f1cbc2ab5cd8658ed0fbe4541f110f4e5f /lib/diagnostics.t | |
| parent | f9d4ccdc4830e30952502e4f7fa821786d59bfe0 (diff) | |
| download | perl-d142a0767037572181a72aa9b71be2ad3a6e1e98.tar.gz | |
diagnostics.t: Restore test name removed by f0e510f
Diffstat (limited to 'lib/diagnostics.t')
| -rw-r--r-- | lib/diagnostics.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/diagnostics.t b/lib/diagnostics.t index a789d17b55..48f265fa80 100644 --- a/lib/diagnostics.t +++ b/lib/diagnostics.t @@ -20,7 +20,8 @@ eval { 'base'->import(qw(I::do::not::exist)); }; -like( $@, qr/^Base class package "I::do::not::exist" is empty/); +like( $@, qr/^Base class package "I::do::not::exist" is empty/, + 'diagnostics not tripped up by "use base qw(Dont::Exist)"'); open *whatever, ">", \my $warning or die "Couldn't redirect STDERR to var: $!"; |