#!perl

use 5.006;
use strict; use warnings;
use Crypt::Image;
use Test::More tests => 3;

my $crypter = Crypt::Image->new(file => 't/key.png', type => 'png');
$crypter->encrypt('Hello World', 't/secret.png');

eval { $crypter->decrypt() };
like($@, qr/ERROR: Encrypted file missing/);

is($crypter->decrypt('t/secret.png'), 'Hello World');

eval { $crypter->decrypt('t/secret1.png') };
like($@, qr/ERROR: Encrypted file \[t\/secret1.png\] not found/);

unlink('t/secret.png');