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
|
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1; print "1..9\n"; }
END {print "not ok $loaded\n" unless $loaded;}
use Set::NestedGroups;
$loaded = 1;
print "ok 1\n";
#
# New
$acl=new Set::NestedGroups;
print "ok 2\n";
# Add some data
$acl->add('joe','manager');
$acl->add('manager','hr');
# Some basic sanity checks
if($acl->member('joe')){
print "ok 3\n";
} else {
print "not ok 3\n";
}
unless($acl->member('jim')){
print "ok 4\n";
} else {
print "not ok 4\n";
}
if($acl->group('hr')){
print "ok 5\n";
} else {
print "not ok 5\n";
}
unless($acl->group('payroll')){
print "ok 6\n";
} else {
print "not ok 6\n";
}
# Check the recusion & stuff (I often seem to get this wrong when programming,
# so it's well worth testing)
# Directly belong to
@groups=$acl->groups('joe',-norecurse=>1);
if(@groups == 1 && $groups[0] eq "manager"){
print "ok 7\n";
} else {
print "not ok 7\n";
}
# Final groups only
@groups=$acl->groups('joe',-nomiddles=>1);
if(@groups == 1 && $groups[0] eq "hr"){
print "ok 8\n";
} else {
print "not ok 8\n";
}
# Both !
@groups=$acl->groups('joe');
if(@groups == 2 && join("",sort @groups) eq "hrmanager"){
print "ok 9\n";
} else {
print "not ok 9\n";
}
|