From d2b811335137ad10ca9489582f31d2d5c595f7f7 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Sun, 4 Nov 2012 09:30:58 -0800 Subject: Minor improvement to the Wallet::Kadmin test suite --- perl/t/kadmin.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/perl/t/kadmin.t b/perl/t/kadmin.t index 778bc45..cefd80d 100755 --- a/perl/t/kadmin.t +++ b/perl/t/kadmin.t @@ -9,7 +9,7 @@ # See LICENSE for licensing terms. use POSIX qw(strftime); -use Test::More tests => 33; +use Test::More tests => 34; BEGIN { $Wallet::Config::KEYTAB_TMP = '.' } @@ -73,7 +73,7 @@ SKIP: { # implementation is configured. This retests some things that are also tested # by the keytab test, but specifically through the Wallet::Kadmin API. SKIP: { - skip 'no keytab configuration', 14 unless -f 't/data/test.keytab'; + skip 'no keytab configuration', 15 unless -f 't/data/test.keytab'; # Set up our configuration. $Wallet::Config::KEYTAB_FILE = 't/data/test.keytab'; @@ -91,6 +91,7 @@ SKIP: { is ($@, '', ' and there is no error'); is ($kadmin->destroy ('wallet/one'), 1, 'Deleting wallet/one works'); is ($kadmin->exists ('wallet/one'), 0, ' and it does not exist'); + is ($kadmin->error, undef, ' with no error message'); # Create the principal and check that keytab returns something. We'll # check the details of the return in the keytab check. -- cgit v1.2.3