use Test::More;
use strict; use warnings;
use App::bmkpasswd -all;
SKIP: {
unless ( mkpasswd_available('md5') ) {
diag
"No MD5 support found",
"You may want to install Crypt::Passwd::XS"
;
skip "No MD5 support", 4;
}
my $md5;
ok $md5 = mkpasswd('snacks', 'md5'), 'MD5 crypt()';
ok index($md5, '$1$') == 0, 'Looks like MD5';
ok passwdcmp('snacks', $md5), 'MD5 compare';
ok !passwdcmp('things', $md5), 'MD5 negative compare';
}
done_testing