This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In utf8decode.t, constrain more tightly the testing of expected warnings.
authorNicholas Clark <nick@ccl4.org>
Sat, 12 Mar 2011 14:32:27 +0000 (14:32 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 12 Mar 2011 15:20:47 +0000 (15:20 +0000)
commitf96a66c2d516de066230151e9a5f9b6fe603cebf
tree81e550e9374f4e6089eb101063775ae97b837fd0
parentc03ceae63f8f7a143e71b8f14156e70222a3c47b
In utf8decode.t, constrain more tightly the testing of expected warnings.

If one warning is expected, use warning_like() to test for it, which will fail
if multiple warnings are generated. Where multiple warnings are generated,
as well as testing that the first seen matches the expected warning, check that
the expected number are seen. Mark as TODO 3.4.1, which Markus Kuhn annotates
as "All the 10 sequences of 3.3 concatenated, you should see 10 malformed
sequences being signalled", because currently perl generates 18 warnings.
t/op/utf8decode.t