BEGIN { use_ok('Apache2::Authen::Passphrase', qw/pwset pwcheck/) };
sub pw_ok {
- my ($user, $pass, $testname) = @_;
- eval { pwcheck $user, $pass };
- is $@, '', $testname;
+ my ($user, $pass, $testname) = @_;
+ eval { pwcheck $user, $pass };
+ is $@, '', $testname;
}
sub pw_nok {
- my ($user, $pass, $testname) = @_;
- eval { pwcheck $user, $pass };
- isnt $@, '', $testname;
+ my ($user, $pass, $testname) = @_;
+ eval { pwcheck $user, $pass };
+ isnt $@, '', $testname;
}
pwset marius => 'password';