view release on metacpan or  search on metacpan

t/04-bom.t  view on Meta::CPAN

#!perl -T
use strict;
use warnings qw(all);

use Test::Builder::Tester tests => 2;
use Test::More;

BEGIN {
    use_ok('Test::Mojibake');
}

BAD: {
    my $name = 'Byte Order Mark is unnecessary!';
    my $file = 't/bad/bom.pl_';
    test_out("not ok 1 - $name");
    file_encoding_ok($file, $name);
    test_fail(-1);
    test_diag("UTF-8 BOM (Byte Order Mark) found in $file");
    test_test("$name is bad");
}