t/io/sem.t

58     my $semval = 192;
59     ok(semctl($id, $sem2set, SETVAL, $semval),
60        "Set semaphore $sem2set to $semval");
70     is($semvals[$sem2set], $semval,
73     is(semctl($id, $sem2set, GETVAL, $ignored), $semval,
82     is($semvals[$sem2set], $semval,
87     $semvals[$sem2set] = $semval + 1;
94     is(semctl($id, $sem2set, GETVAL, undef), $semval+1,
108         my $op = pack "s!*", $sem2set, $semval, 0;
110         is(semctl($id, $sem2set, GETVAL, 0), $semval,
116         is(semctl($id, $sem2set, GETVAL, 0), $semval*2,