Added test for Wallet::Kadmin basic function

Created perl/t/kadmin.t, which performs tests against the Wallet::Kadmin
basic API.  We only test that Wallet::Kadmin->new () works for both MIT
and Heimdal (though doesn't make a connection), and the MIT
valid_principal private method.

1 files changed, 53 insertions, 0 deletions

diff --git a/perl/t/kadmin.t b/perl/t/kadmin.t
new file mode 100755
index 0000000..7423ed1
--- /dev/null
+++ b/perl/t/kadmin.t
@@ -0,0 +1,53 @@
+#!/usr/bin/perl -w
+#
+# t/kadmin.t -- Tests for the kadmin object implementation.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2009 Board of Trustees, Leland Stanford Jr. University
+#
+# See LICENSE for licensing terms.
+
+use POSIX qw(strftime);
+use Test::More tests => 15;
+
+use Wallet::Admin;
+use Wallet::Config;
+use Wallet::Kadmin;
+use Wallet::Kadmin::Heimdal;
+use Wallet::Kadmin::MIT;
+
+use lib 't/lib';
+use Util;
+
+# We test a Wallet::Kadmin::* module's actual workings in the keytab.t tests.
+# The only things we want to test here are that each module is found, that
+# Wallet::Kadmin itself delegates to them, and that the private MIT principal 
+# validation works as it should.
+for my $bad (qw{service\* = host/foo+bar host/foo/bar /bar bar/
+                rcmd.foo}) {
+    ok (! Wallet::Kadmin::MIT->valid_principal ($bad),
+        "Invalid principal name $bad");
+}
+for my $good (qw{service service/foo bar foo/bar host/example.org
+                 aservice/foo}) {
+    ok (Wallet::Kadmin::MIT->valid_principal ($good),
+        "Valid principal name $good");
+}
+
+# Test creating an MIT object.  We don't care about anything but correctly
+# creating it -- testing operations is for the keytab tests.
+$Wallet::Config::KEYTAB_KRBTYPE = 'MIT';
+my $kadmin = Wallet::Kadmin->new ();
+ok (defined ($kadmin), 'MIT kadmin object created');
+
+# Test creating a Heimdal object.  For us to test a working Heimdal object,
+# we need a properly configured Heimdal KDC.  So instead, we deliberately
+# connect without configuration to get the error.  That at least tests that
+# we can find the Heimdal module and it dies how it should.
+undef $Wallet::Config::KEYTAB_PRINCIPAL;
+undef $Wallet::Config::KEYTAB_FILE;
+undef $Wallet::Config::KEYTAB_REALM;
+undef $kadmin;
+$Wallet::Config::KEYTAB_KRBTYPE = 'Heimdal';
+$kadmin = eval { Wallet::Kadmin->new () };
+is ($kadmin, undef, 'Heimdal fails properly.');