[SOLVED] CS # -*- perl -*-

# -*- perl -*-
use strict;
use warnings;
use tests::tests;
check_expected ([<<‘EOF’]);(priority-donate-lower) begin(priority-donate-lower) Main thread should have priority 41.Actual priority: 41.(priority-donate-lower) Lowering base priority…(priority-donate-lower) Main thread should have priority 41.Actual priority: 41.(priority-donate-lower) acquire: got the lock(priority-donate-lower) acquire: done(priority-donate-lower) acquire must already have finished.(priority-donate-lower) Main thread should have priority 21.Actual priority: 21.(priority-donate-lower) endEOFpass;