This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
diagnostics.t: Restore test name removed by f0e510f
[perl5.git] / lib / diagnostics.t
index a789d17..48f265f 100644 (file)
@@ -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: $!";