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

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

ok(length mkpasswd(-length => 0) == 9, "length = 0");

for ( 1 .. 6 ) {
	ok(!defined mkpasswd(-length => $_), "length = $_");
}

for ( 7 .. 20 ) {
	ok(length mkpasswd(-length => $_) == $_, "length = $_");
}