diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-02-12 23:30:13 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-02-12 23:49:21 -0800 |
commit | f4739a71a55f13abd9474496c261e7e801ff8d46 (patch) | |
tree | fc0565db394e4c281a1d1cd7977a33fc14ea5fc5 /lib/diagnostics.t | |
parent | 2fe2bdfdc021075e8d79fba5050f89faea5f656c (diff) | |
download | perl-f4739a71a55f13abd9474496c261e7e801ff8d46.tar.gz |
Make diagnostics.pm understand messages sharing descriptions
We currently have entries in perldiag like this:
=item Code point 0x%X is not Unicode, may not be portable
=item Code point 0x%X is not Unicode, no properties match it; all inverse properties do
(W utf8) You had a code point above the Unicode maximum of U+10FFFF.
...
diagnostics.pm needs to know that the description applies to the first
=item, as well as to the second.
Diffstat (limited to 'lib/diagnostics.t')
-rw-r--r-- | lib/diagnostics.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/diagnostics.t b/lib/diagnostics.t index 81896cda64..06ab5363d5 100644 --- a/lib/diagnostics.t +++ b/lib/diagnostics.t @@ -5,7 +5,7 @@ BEGIN { @INC = 'lib'; } -use Test::More tests => 5; +use Test::More tests => 6; BEGIN { use_ok('diagnostics') } @@ -36,3 +36,11 @@ $warning = ''; warn 'Lexing code attempted to stuff non-Latin-1 character into Latin-1 input'; like $warning, qr/using lex_stuff_pvn_flags or similar/, 'L<foo|bar/baz>'; + +# Multiple messages with the same description +seek STDERR, 0,0; +$warning = ''; +warn 'Code point 0x%X is not Unicode, may not be portable'; +like $warning, qr/W utf8/, + 'Message sharing its description with the following message'; + |