[hcoop/debian/openafs.git] / src / tests / ptslistmax.pl

#!/usr/bin/env perl
use OpenAFS::CMU_copyright;
use OpenAFS::util qw(:DEFAULT %AFS_Help);
use OpenAFS::afsconf;
use OpenAFS::fs;
use OpenAFS::pts;
use OpenAFS::vos;
use OpenAFS::bos;

my (@info);
&AFS_Init();

@info = &AFS_pts_listmax();
if ($info[0] != 100) {
    exit(1);
}
if ($info[1] != -300) {
    exit(1);
}

exit(0);
Commit	Line	Data
805e021f CE	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_listmax();
	14	if ($info[0] != 100) {
	15	exit(1);
	16	}
	17	if ($info[1] != -300) {
	18	exit(1);
	19	}
	20
	21	exit(0);
	22
	23
	24