Searched refs:nsem (Results 1 - 1 of 1) sorted by relevance

/openbsd-current/gnu/usr.bin/perl/t/io/
H A Dsem.t27 my $nsem = 10;
33 $id = semget IPC_PRIVATE, $nsem, S_IRUSR | S_IWUSR | IPC_CREAT;
54 ok(semctl($id, $ignored, SETALL, pack("s!*",(0)x$nsem)),
55 "Initialize all $nsem semaphores to zero");
67 is(scalar(@semvals), $nsem,
68 "Make sure we get back statuses for all $nsem semaphores");
86 @semvals = ( 0 ) x $nsem;

Completed in 107 milliseconds