use Test::More;
use strict; use warnings FATAL => 'all';
use App::bmkpasswd -all;
my $res;
$SIG{__WARN__} = sub { $res = shift };
passwdcmp('foo', 'bar');
like $res, qr/invalid hash/, 'invalid hash warns';
done_testing;
use Test::More;
use strict; use warnings FATAL => 'all';
use App::bmkpasswd -all;
my $res;
$SIG{__WARN__} = sub { $res = shift };
passwdcmp('foo', 'bar');
like $res, qr/invalid hash/, 'invalid hash warns';
done_testing;