view release on metacpan or  search on metacpan

t/lib/My/TestHelper.pm  view on Meta::CPAN

use warnings;
use base 'Exporter';
use Test::Builder;
use FileHandle;

our @EXPORT_OK = qw(cmp_file_ok read_file);

my $Test = Test::Builder->new;

# compare string to a file's contents
sub cmp_file_ok($$;$) {
    my ($got, $file, $desc) = @_;

    unless (-e $file and -r $file) {
        $Test->ok(0, $desc);
        $Test->diag("$file not found or not readable");
        return 0;
    }

    my $ok = 0;

t/lib/My/TestHelper.pm  view on Meta::CPAN

        # ignore whitespace differences
        $expected =~ s/\s|[^[:print:]]//gs;
        $got      =~ s/\s|[^[:print:]]//gs;

        return $Test->is_eq($got, $expected);
    }

    return $ok;
}

sub read_file($) {
    my $file = shift;

    local $/ = undef;

    my $fh = FileHandle->new("<$file") or return;

    my $data = <$fh>;

    return $data;
}