perl/lib/charnames.t

19 my @WARN;
26     $SIG{__WARN__} = sub { push @WARN, @_ };
298     my $warning_count = @WARN;
300     cmp_ok($warning_count, '==', scalar @WARN, "Verify vianame doesn't warn on unknown names");
302     cmp_ok($warning_count, '==', scalar @WARN, "Verify string_vianame doesn't warn on unknown names");
304     cmp_ok($warning_count, '==', scalar @WARN, "... and no warning is generated");
306     cmp_ok($warning_count, '==', scalar @WARN, "... and no warning is generated");
315     cmp_ok($warning_count, '==', scalar @WARN, "Verify vianame doesn't warn on legal inputs under 'use bytes'");
317     ok($warning_count == scalar @WARN - 1 && $WARN[-1] =~ /above 0xFF/, "Verify vianame gives appropriate warning for previous test");
319     $warning_count = @WARN;
321     ok($warning_count == scalar @WARN - 1 && $WARN[-1] =~ /above 0xFF/, "Verify string_vianame gives appropriate warning for previous test");
322     $warning_count = @WARN;
326     cmp_ok($warning_count, '==', scalar @WARN, "Verify string_vianame doesn't warn on legal inputs under 'use bytes'");
328     cmp_ok($warning_count, '==', scalar @WARN, "Verify string_vianame doesn't warn on legal inputs under 'use bytes'");
330     ok($warning_count == scalar @WARN - 1 && $WARN[-1] =~ /above 0xFF/, "Verify string_vianame gives appropriate warning for previous test");
331     $warning_count = @WARN;
333     ok($warning_count == scalar @WARN - 1 && $WARN[-1] =~ /String.*above 0xFF/, "Verify string_vianame gives appropriate warning for previous test");
374     my $ok = ! grep { /"HORIZONTAL TABULATION" is deprecated.*"CHARACTER TABULATION"/ } @WARN;
379         my $ok = grep { /"BELL" is deprecated.*"ALERT"/ } @WARN;
387     my $nok = grep { /"VERTICAL TABULATION" is deprecated/ } @WARN;
428 ok((grep { /\Qyou asked for U+110000/ } @WARN), '... and gives warning');