HCoop
/
hcoop
/
debian
/
openafs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Import Upstream version 1.8.5
[hcoop/debian/openafs.git]
/
src
/
tests
/
ptsexaminegroup.pl
1
#!/usr/bin/env perl
2
use
OpenAFS
::
CMU_copyright
;
3
use
OpenAFS
::
util
qw(:DEFAULT
%AFS_Help
);
4
use OpenAFS::afsconf;
5
use OpenAFS::fs;
6
use OpenAFS::pts;
7
use OpenAFS::vos;
8
use OpenAFS::bos;
9
10
my (
%info
);
11
&AFS_Init();
12
13
%info
= &AFS_pts_examine(testgroup1,);
14
if (
$info
{'creator'} ne "admin") {
15
exit(1);
16
}
17
if (
$info
{'mem_count'} != 1) {
18
exit(1);
19
}
20
if (
$info
{'owner'} ne "testuser1") {
21
exit(1);
22
}
23
24
exit(0);
25
26
27