use Test::More tests => 5;
BEGIN { use_ok('String::MkPasswd') };

String::MkPasswd->import("mkpasswd");

$String::MkPasswd::FATAL = 0;

eval { mkpasswd(-fatal => 1) };
is($@, "", "not fatal, flag");

eval { mkpasswd(-length => 1, -fatal => 1) };
isnt($@, "", "fatal, flag");

$String::MkPasswd::FATAL = 1;

eval { mkpasswd() };
is($@, "", "not fatal, global");

eval { mkpasswd(-length => 1) };
isnt($@, "", "fatal, global");