view release on metacpan or  search on metacpan

t/Tester.pm  view on Meta::CPAN

    cmp_ok (@filenames, '>', 0, "Generated some images");

    foreach (@filenames) {
	ok (-e $_, "$_ exists");
    }

    my $reread = $package->read_files(reverse @filenames);

    is (length $reread, length $data, "Same length");
    # No. I don't want not equal diagnsotics sent to stderr
    ok ( $reread eq $data, "Same contents");

    unlink @filenames unless $::DEBUG;
}

1;