1#!perl -w 2use strict; 3 4use FindBin; 5use File::Spec; 6use lib $FindBin::Bin; 7use Tester; 8use Test::More; 9 10my $test_image = File::Spec->catfile($FindBin::Bin, 'Elsa'); 11ok (-e $test_image, "We have our test image '$test_image'"); 12 13Tester::test_package('Acme::Steganography::Image::Png::RGB::556', $test_image); 14Tester::test_package('Acme::Steganography::Image::Png::RGB::323', $test_image); 15Tester::test_package('Acme::Steganography::Image::Png::RGB::556FS', 16 $test_image); 17