diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-12-26 20:16:17 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-26 20:16:17 -0800 |
commit | 33327ed8afe36c0226d45c7e93346669d395a14a (patch) | |
tree | cbfefa593ee5879076a23ed9cc67e16ba78557b3 /lib/diagnostics.t | |
parent | 2c39375ffb1105696abafbdb124db97d3fc608d0 (diff) | |
download | perl-33327ed8afe36c0226d45c7e93346669d395a14a.tar.gz |
diagnostics.t: Test errors ending with dots
Diffstat (limited to 'lib/diagnostics.t')
-rw-r--r-- | lib/diagnostics.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/diagnostics.t b/lib/diagnostics.t index 5e418f6327..5283cc4ca2 100644 --- a/lib/diagnostics.t +++ b/lib/diagnostics.t @@ -4,7 +4,7 @@ BEGIN { chdir '..' if -d '../pod' && -d '../t'; @INC = 'lib'; require './t/test.pl'; - plan(15); + plan(16); } BEGIN { @@ -75,6 +75,12 @@ $warning = ''; warn "syntax error"; like $warning, qr/cybernetic version of 20 questions/s, 'strip S<>'; +# Errors ending with dots +seek STDERR, 0,0; +$warning = ''; +warn "Attempt to reload stuff aborted.\n"; +like $warning, qr/You tried to load a file/, 'dotty errors'; + *STDERR = $old_stderr; # These tests use a panic under the hope that the description is not likely |