17 $sem = new IPC::Semaphore(IPC_PRIVATE, 10, S_IRWXU | S_IRWXG | S_IRWXO | IPC_CREAT)
18 || die "semget: ",$!+0," $!\n";
22 my $st = $sem->stat || print "not ";
25 $sem->setall( (0) x 10) || print "not ";
28 my @sem = $sem->getall;
29 print "not " unless join("",@sem) eq "0000000000";
33 $sem->setall( @sem ) || print "not ";
37 print "not " unless join("",@sem) eq "0010000000";
40 my $ncnt = $sem->getncnt(0);
41 print "not " if $sem->getncnt(0) || !defined($ncnt);
44 $sem->op(2,-1,IPC_NOWAIT) || print "not ";
47 print "not " if $sem->getncnt(0);
50 $sem->remove || print "not ";