diff options
| author | Vincent Pit <vince@profvince.com> | 2010-05-06 22:20:10 +0200 |
|---|---|---|
| committer | Vincent Pit <vince@profvince.com> | 2010-05-06 22:36:54 +0200 |
| commit | c142532219286314b83d763ae2a9ab5e34180ef0 (patch) | |
| tree | 469aa4f1e2ebf9b7b190cc789bcda3354821510e | |
| parent | d347ad18ecf3da70504843223bc83fa49705ebaf (diff) | |
| download | perl-c142532219286314b83d763ae2a9ab5e34180ef0.tar.gz | |
Make t/op/sprintf.t test multiple warnings
| -rw-r--r-- | t/op/sprintf.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op/sprintf.t b/t/op/sprintf.t index 2146be0903..b153839c0e 100644 --- a/t/op/sprintf.t +++ b/t/op/sprintf.t @@ -57,11 +57,11 @@ print '1..', scalar @tests, "\n"; $SIG{__WARN__} = sub { if ($_[0] =~ /^Invalid conversion/) { - $w = ' INVALID'; + $w .= ' INVALID'; } elsif ($_[0] =~ /^Use of uninitialized value/) { - $w = ' UNINIT'; + $w .= ' UNINIT'; } elsif ($_[0] =~ /^Missing argument/) { - $w = ' MISSING'; + $w .= ' MISSING'; } else { warn @_; } @@ -687,7 +687,7 @@ __END__ >%V-%s< >["Hello"]< >%V-Hello INVALID< >%K %d %d< >[13, 29]< >%K 13 29 INVALID< >%*.*K %d< >[13, 29, 76]< >%*.*K 13 INVALID< ->%4$K %d< >[45, 67]< >%4$K 45 INVALID< +>%4$K %d< >[45, 67]< >%4$K 45 MISSING INVALID< >%d %K %d< >[23, 45]< >23 %K 45 INVALID< >%*v*999\$d %d %d< >[11, 22, 33]< >%*v*999\$d 11 22 INVALID< >%#b< >0< >0< |