File Coverage

blib/lib/Test/BOM.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	8	8	100.0
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	56	56	100.0

package Test::BOM;
$Test::BOM::VERSION = '0.001';

# ABSTRACT: Test strings and files for BOM

use strict;
use warnings;

use base qw(Test::Builder::Module);
our @EXPORT = qw(string_has_bom string_hasnt_bom file_has_bom file_hasnt_bom);

# We have subs of the same name, don't import them
use String::BOM qw();

my $CLASS  = __PACKAGE__;
my $Tester = $CLASS->builder;

sub string_has_bom {
    my ($string) = @_;

    my $ok = String::BOM::string_has_bom($string);

    $Tester->ok( $ok, q{string has BOM} );
    unless ($ok) {
        $Tester->diag('String was expected to have a BOM but did not.');
    }

    return $ok;
}

sub string_hasnt_bom {
    my ($string) = @_;

    my $ok = String::BOM::string_has_bom($string);

    $Tester->ok( !$ok, q{string hasn't BOM} );
    if ($ok) {
        $Tester->diag('String was expected not to have a BOM but it has.');
    }

    return !$ok;
}

sub file_has_bom {
    my ($string) = @_;

    my $ok = String::BOM::file_has_bom($string);

    $Tester->ok( $ok, q{file has BOM} );
    unless ($ok) {
        $Tester->diag('File was expected to have a BOM but did not.');
    }

    return $ok;
}

sub file_hasnt_bom {
    my ($string) = @_;

    my $ok = String::BOM::file_has_bom($string);

    $Tester->ok( !$ok, q{file has BOM} );
    if ($ok) {
        $Tester->diag('File was expected to not have a BOM but it has.');
    }

    return !$ok;
}

1;

__END__