diff options
-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: $!"; |