From e5345b50c36e3b07b9e8ec5202ed0f60bc8e2010 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Thu, 30 Aug 2012 14:44:44 -0700 Subject: Display the error message on the first kadmin test failure --- perl/t/kadmin.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl') diff --git a/perl/t/kadmin.t b/perl/t/kadmin.t index a1f2876..778bc45 100755 --- a/perl/t/kadmin.t +++ b/perl/t/kadmin.t @@ -3,12 +3,13 @@ # Tests for the kadmin object implementation. # # Written by Jon Robertson -# Copyright 2009, 2010 Board of Trustees, Leland Stanford Jr. University +# Copyright 2009, 2010, 2012 +# The Board of Trustees of the Leland Stanford Junior University # # See LICENSE for licensing terms. use POSIX qw(strftime); -use Test::More tests => 32; +use Test::More tests => 33; BEGIN { $Wallet::Config::KEYTAB_TMP = '.' } @@ -94,6 +95,7 @@ SKIP: { # Create the principal and check that keytab returns something. We'll # check the details of the return in the keytab check. is ($kadmin->create ('wallet/one'), 1, 'Creating wallet/one works'); + is ($kadmin->error, undef, ' with no error message'); is ($kadmin->exists ('wallet/one'), 1, ' and it now exists'); my $data = $kadmin->keytab_rekey ('wallet/one'); ok (defined ($data), ' and retrieving a keytab works'); -- cgit v1.2.3