20 lines
591 B
Text
20 lines
591 B
Text
|
# -*- perl -*-
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use tests::tests;
|
||
|
|
check_expected ([<<'EOF']);
|
||
|
|
(alarm-priority) begin
|
||
|
|
(alarm-priority) Thread priority 30 woke up.
|
||
|
|
(alarm-priority) Thread priority 29 woke up.
|
||
|
|
(alarm-priority) Thread priority 28 woke up.
|
||
|
|
(alarm-priority) Thread priority 27 woke up.
|
||
|
|
(alarm-priority) Thread priority 26 woke up.
|
||
|
|
(alarm-priority) Thread priority 25 woke up.
|
||
|
|
(alarm-priority) Thread priority 24 woke up.
|
||
|
|
(alarm-priority) Thread priority 23 woke up.
|
||
|
|
(alarm-priority) Thread priority 22 woke up.
|
||
|
|
(alarm-priority) Thread priority 21 woke up.
|
||
|
|
(alarm-priority) end
|
||
|
|
EOF
|
||
|
|
pass;
|