# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Crypt.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 3;
# XXX use Test::More tests => 2;
# XXX #BEGIN { u s e _ o k ('Crypt::Lite') };
BEGIN { use_ok('Crypt::Lite') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
my $skip_tests = 0;
unless (eval "require MD5") {
#print "No MD5 module.\n";
$skip_tests = 1;
}
my $c;
my $enc = my $dec = '';
$c = Crypt::Lite->new(debug => 0, encoding => 'hex8') unless $skip_tests;
unless ($skip_tests) {
$enc = $c->encrypt('plain text to encrypt', 'mysecret');
$dec = $c->decrypt($enc, 'mysecret');
}
ok(($dec eq 'plain text to encrypt' or $skip_tests), 'Encryption / Decryption');
$dec = $c->decrypt($enc, 'wrongpassword') unless $skip_tests;
ok(($dec eq '' or $skip_tests), 'Double check. skip_tests: ' . $skip_tests);
sleep 1;