git://git.openafs.org
/
openafs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
afscp: Add -l option
[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