Acme-Steganography-Image-Png
view release on metacpan or search on metacpan
12345678910111213141516#!perl -w
use
strict;
use
FindBin;
use
File::Spec;
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
);
( run in 0.260 second using v1.01-cache-2.11-cpan-454fe037f31 )