t/io/sem.t

57     my $sem2set = 3;
59     ok(semctl($id, $sem2set, SETVAL, $semval),
60        "Set semaphore $sem2set to $semval");
70     is($semvals[$sem2set], $semval,
71        "Checking value of semaphore $sem2set");
73     is(semctl($id, $sem2set, GETVAL, $ignored), $semval,
82     is($semvals[$sem2set], $semval,
83        "Checking value of semaphore $sem2set after fetch into originally UTF-8 buffer");
87     $semvals[$sem2set] = $semval + 1;
94     is(semctl($id, $sem2set, GETVAL, undef), $semval+1,
105         ok(semctl($id, $sem2set, SETVAL, 0),
108         my $op = pack "s!*", $sem2set, $semval, 0;
109         ok(semop($id, $op), "add to entry $sem2set");
110         is(semctl($id, $sem2set, GETVAL, 0), $semval,
115         ok(semop($id, $op), "add more to entry $sem2set (UTF-8)");
116         is(semctl($id, $sem2set, GETVAL, 0), $semval*2,