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
/
ptslistown.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 (
@owned
,
$group
);
11
&AFS_Init();
12
13
@owned
= &AFS_pts_listown(testuser1,);
14
while (
$group
= pop(
@owned
)) {
15
if (
$group
ne "testgroup1") {
16
exit(1);
17
}
18
}
19
20
exit(0);
21
22
23