use File::Temp qw/tempdir/;
use Test::More tests => 7;
+BEGIN { $ENV{AAP_ROOTDIR} = tempdir CLEANUP => 1 }
BEGIN { use_ok('Apache2::Authen::Passphrase', qw/pwset pwcheck/) };
-$Apache2::Authen::Passphrase::rootdir = tempdir CLEANUP => 1;
-
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';