BEGIN { $| = 1;
print
"1..48\n"
; }
END {
print
"not ok 1\n"
unless
$loaded
;}
$loaded
= 1;
print
"ok 1\n"
;
$checks
||= 1;
my
$db
= Authen::Krb5::KDB->new(
file
=>
't/slave_datatrans.b6'
,
save
=> 1,
checks
=>
$checks
);
print
"not "
unless
(
ref
(
$db
) eq
"Authen::Krb5::KDB"
);
print
"ok 2\n"
;
my
$Nprincs
= 0;
my
$Npolicies
= 0;
while
(
my
$p
=
$db
->
next
) {
if
(
$p
->type eq
'princ'
) {
$Nprincs
++;
}
if
(
$p
->type eq
'policy'
) {
$Npolicies
++;
}
}
print
"not "
unless
(
$Nprincs
== 9);
print
"ok 3\n"
;
print
"not "
unless
(
$Npolicies
== 0);
print
"ok 4\n"
;
print
"not "
unless
(
$db
->
close
);
print
"ok 5\n"
;
require
"t/princ-check.pl"
;
check_principals(
$db
->principals, 2);
my
$pol
=
$db
->policies;
print
"not "
unless
(
ref
(
$pol
) eq
"ARRAY"
);
print
"ok 47\n"
;
print
"not "
unless
(
scalar
@{
$pol
} == 0);
print
"ok 48\n"
;
1;