diff options
| author | Matthew Horsfall (alh) <wolfsage@gmail.com> | 2011-07-31 22:42:22 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-02 14:32:10 -0700 |
| commit | e958e573604ab75ea497030026663063af7f21a6 (patch) | |
| tree | 99fd8d43881b71c5c6593ff449331e1ea42be9d1 /lib/diagnostics.t | |
| parent | 706c19b7f8e3507cf277370f033ddc7c57499fdf (diff) | |
| download | perl-e958e573604ab75ea497030026663063af7f21a6.tar.gz | |
RT #94988 - Support for %u in diagnostics.pm's printf()-format parser
Diffstat (limited to 'lib/diagnostics.t')
| -rw-r--r-- | lib/diagnostics.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/diagnostics.t b/lib/diagnostics.t index b5db34de74..31a5802c2b 100644 --- a/lib/diagnostics.t +++ b/lib/diagnostics.t @@ -5,7 +5,7 @@ BEGIN { @INC = 'lib'; } -use Test::More tests => 8; +use Test::More tests => 9; BEGIN { my $w; @@ -54,3 +54,10 @@ seek STDERR, 0,0; $warning = ''; warn "Execution of -e aborted due to compilation errors.\n"; like $warning, qr/The final summary message/, 'Periods at end of line'; + + +# Test for %d/%u +seek STDERR, 0,0; +$warning = ''; +warn "Bad arg length for us, is 4, should be 42"; +like $warning, qr/In C parlance/, '%u works'; |