view release on metacpan or  search on metacpan

t/grey.t  view on Meta::CPAN

#!perl -w
use strict;

use FindBin;

use lib $FindBin::Bin;

use Tester;

Tester::test_package('Acme::Steganography::Image::Png::FlashingNeonSignGrey');

t/rgb.t  view on Meta::CPAN

#!perl -w
use strict;

use FindBin;
use File::Spec;
use lib $FindBin::Bin;
use Tester;
use Test::More;

my $test_image = File::Spec->catfile($FindBin::Bin, 'Elsa');
ok (-e $test_image, "We have our test image '$test_image'");

Tester::test_package('Acme::Steganography::Image::Png::RGB::556', $test_image);
Tester::test_package('Acme::Steganography::Image::Png::RGB::323', $test_image);
Tester::test_package('Acme::Steganography::Image::Png::RGB::556FS',
		     $test_image);