Commit | Line | Data |
---|---|---|
f4cc782b MG |
1 | use v5.14; |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use File::Temp qw/tempdir/; | |
6 | use Test::More tests => 7; | |
7 | BEGIN { use_ok('Apache2::Authen::Passphrase', qw/pwset pwcheck/) }; | |
8 | ||
9 | my $tempdir = tempdir CLEANUP => 1; | |
10 | mkdir "$tempdir/us"; | |
11 | $Apache2::Authen::Passphrase::rootdir = $tempdir; | |
12 | ||
13 | sub pw_ok { | |
14 | my ($user, $pass, $testname) = @_; | |
15 | eval { pwcheck $user, $pass }; | |
16 | is $@, '', $testname; | |
17 | } | |
18 | ||
19 | sub pw_nok { | |
20 | my ($user, $pass, $testname) = @_; | |
21 | eval { pwcheck $user, $pass }; | |
22 | isnt $@, '', $testname; | |
23 | } | |
24 | ||
25 | pwset marius => 'password'; | |
26 | pw_ok marius => 'password', 'Set password and check it'; | |
27 | pw_nok marius => 'anotherpassword', 'Check an incorrect password'; | |
28 | ||
29 | pwset marius => 'anotherpassword'; | |
30 | pw_ok marius => 'anotherpassword', 'Change the password and check it'; | |
31 | ||
32 | pw_nok 'BadUsername++', 'a', 'Bad username'; | |
33 | pw_nok 'a', 'a', 'Short username'; | |
34 | pw_nok 'asfwe0g3girg4ih45jho45ih45hi45h045jh4oh', 'a', 'Long username'; |