1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#!/usr/bin/perl -w
# $Id$
#
# Tests for basic kasetkey functionality.
#
# We only test creation (with a random key), deletion, enable, disable, and
# examine. That's enough to verify that kasetkey is basically working, and
# since AFS kaservers are becoming scarce, it's probably not worth the effort
# to do anything more comprehensive.
#
# We do test creation of a principal with a known key given a srvtab from
# inside the wallet server test suite already.
#
# Written by Russ Allbery <rra@stanford.edu>
# Copyright 2008 Board of Trustees, Leland Stanford Jr. University
#
# See LICENSE for licensing terms.
BEGIN { our $total = 27 }
use Test::More tests => $total;
use lib '@abs_top_builddir@/perl/blib/lib';
use lib '@abs_top_srcdir@/perl/t/lib';
use Util;
# Global variables used for the kasetkey configuration.
our $ADMIN;
our $SRVTAB;
# Make a call to the kasetkey client and returns the standard output, the
# standard error, and the exit status as a list.
sub kasetkey {
my @command = @_;
my $pid = fork;
if (not defined $pid) {
die "cannot fork: $!\n";
} elsif ($pid == 0) {
open (STDOUT, '>', 'kasetkey.out')
or die "cannot create kasetkey.out: $!\n";
open (STDERR, '>', 'kasetkey.err')
or die "cannot create kasetkey.err: $!\n";
exec ('@abs_top_builddir@/kasetkey/kasetkey', '-a', $ADMIN,
'-k', $SRVTAB, @command)
or die "cannot run @abs_top_builddir@/kasetkey/kasetky: $!\n";
} else {
waitpid ($pid, 0);
}
my $status = ($? >> 8);
local $/;
open (OUT, '<', 'kasetkey.out') or die "cannot open kasetkey.out: $!\n";
my $output = <OUT>;
close OUT;
open (ERR, '<', 'kasetkey.err') or die "cannot open kasetkey.err: $!\n";
my $error = <ERR>;
close ERR;
unlink ('kasetkey.out', 'kasetkey.err');
return ($output, $error, $status);
}
SKIP: {
skip 'no AFS kaserver configuration', $total
unless -f '@abs_top_builddir@/tests/data/test.srvtab';
skip 'no AFS kaserver support', $total,
unless -x '@abs_top_builddir@/kasetkey/kasetkey';
# Set up the configuration.
$ADMIN = contents ('@abs_top_builddir@/tests/data/test.admin');
$SRVTAB = '@abs_top_builddir@/tests/data/test.srvtab';
my $realm = $ADMIN;
$realm =~ s/^[^\@]+\@//;
my $principal = "wallet.one\@$realm";
# Now we can start manipulating principals. Test examine and create.
my ($out, $err, $status) = kasetkey ('-e', $principal);
is ($status, 1, 'Examining a non-existent principal fails');
is ($out, '', ' with no output');
is ($err, "no such entry in the database\n", ' and the right error');
($out, $err, $status) = kasetkey ('-s', $principal, '-r');
is ($status, 0, 'Creating a principal succeeds');
is ($out, '', ' with no output');
is ($err, '', ' and no error');
($out, $err, $status) = kasetkey ('-e', $principal);
is ($status, 0, 'Examining a principal succeeds');
$out =~ s/: (Sun|Mon|Tue|Wed|Thu|Fri|Sat).*/: DATE/g;
my $shortadmin = $ADMIN;
$shortadmin =~ s/\@.*//;
my $enabled = <<"EOE";
status: enabled
account expiration: never
password last changed: DATE
modification time: DATE
modified by: $shortadmin
EOE
is ($out, $enabled, ' with the right output');
is ($err, '', ' and no error');
# Test enable and disable.
($out, $err, $status) = kasetkey ('-s', $principal, '-n');
is ($status, 0, 'Disabling a principal succeeds');
is ($out, '', ' with no output');
is ($err, '', ' and no error');
($out, $err, $status) = kasetkey ('-e', $principal);
is ($status, 0, ' and examining it still succeeds');
$out =~ s/: (Sun|Mon|Tue|Wed|Thu|Fri|Sat).*/: DATE/g;
my $disabled = $enabled;
$disabled =~ s/enabled/disabled/;
is ($out, $disabled, ' with the right output');
is ($err, '', ' and no error');
($out, $err, $status) = kasetkey ('-s', $principal, '-t');
is ($status, 0, 'Enabling a principal succeeds');
is ($out, '', ' with no output');
is ($err, '', ' and no error');
($out, $err, $status) = kasetkey ('-e', $principal);
is ($status, 0, ' and examining it still succeeds');
$out =~ s/: (Sun|Mon|Tue|Wed|Thu|Fri|Sat).*/: DATE/g;
is ($out, $enabled, ' with the right output');
is ($err, '', ' and no error');
# Test deletion.
($out, $err, $status) = kasetkey ('-D', $principal);
is ($status, 0, 'Deleting the principal succeeds');
is ($out, '', ' with no output');
is ($err, '', ' and no error');
($out, $err, $status) = kasetkey ('-e', $principal);
is ($status, 1, ' and now examining it fails');
is ($out, '', ' with no output');
is ($err, "no such entry in the database\n", ' and the right error');
}
|
