diff options
| author | Russ Allbery <eagle@eyrie.org> | 2014-07-11 20:04:23 -0700 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2014-07-11 22:38:35 -0700 |
| commit | 2971570d0e90bd166d87eff14e9e42c095c9f614 (patch) | |
| tree | 9e977d1f6cab8c33e1aca03c6f25032a0fe2b387 /perl/t | |
| parent | cc98e4d332295a336f0b4363f4399dab5d7ec189 (diff) | |
Show the error message if verifier-netdb creation fails
Change-Id: I1acd7894316fc96943b9eda5e3a9abb9d229646c
Reviewed-on: https://gerrit.stanford.edu/1528
Reviewed-by: Russ Allbery <rra@stanford.edu>
Tested-by: Russ Allbery <rra@stanford.edu>
Diffstat (limited to 'perl/t')
| -rwxr-xr-x | perl/t/verifier-netdb.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl/t/verifier-netdb.t b/perl/t/verifier-netdb.t index 6a91cb3..d8fe561 100755 --- a/perl/t/verifier-netdb.t +++ b/perl/t/verifier-netdb.t @@ -12,7 +12,7 @@ # # See LICENSE for licensing terms. -use Test::More tests => 4; +use Test::More tests => 5; use Wallet::ACL::NetDB; @@ -26,7 +26,7 @@ my $user = 'rra@stanford.edu'; # Determine the local principal. my $klist = `klist 2>&1` || ''; SKIP: { - skip "tests useful only with Stanford Kerberos tickets", 4 + skip "tests useful only with Stanford Kerberos tickets", 5 unless ($klist =~ /^(Default p|\s+P)rincipal: \S+\@stanford\.edu$/m); # Set up our configuration. @@ -37,6 +37,7 @@ SKIP: { # Finally, we can test. $verifier = eval { Wallet::ACL::NetDB->new }; ok (defined $verifier, ' and now creation succeeds'); + is ($@, q{}, ' with no errors'); ok ($verifier->isa ('Wallet::ACL::NetDB'), ' and returns the right class'); is ($verifier->check ($user, $host), 1, "Checking $host succeeds"); is ($verifier->check ('test-user@stanford.edu', $host), 0, |