18 lines
529 B
Text
18 lines
529 B
Text
|
# -*- perl -*-
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use tests::tests;
|
||
|
|
check_expected ([<<'EOF']);
|
||
|
|
(mlfqs-block) begin
|
||
|
|
(mlfqs-block) Main thread acquiring lock.
|
||
|
|
(mlfqs-block) Main thread creating block thread, sleeping 25 seconds...
|
||
|
|
(mlfqs-block) Block thread spinning for 20 seconds...
|
||
|
|
(mlfqs-block) Block thread acquiring lock...
|
||
|
|
(mlfqs-block) Main thread spinning for 5 seconds...
|
||
|
|
(mlfqs-block) Main thread releasing lock.
|
||
|
|
(mlfqs-block) ...got it.
|
||
|
|
(mlfqs-block) Block thread should have already acquired lock.
|
||
|
|
(mlfqs-block) end
|
||
|
|
EOF
|
||
|
|
pass;
|