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

# -*- perl -*-
use strict;
use warnings;
use tests::tests;
check_expected ([<<‘EOF’]);(priority-donate-multiple) begin(priority-donate-multiple) Main thread should have priority 32.Actual priority: 32.(priority-donate-multiple) Main thread should have priority 33.Actual priority: 33.(priority-donate-multiple) Thread b acquired lock b.(priority-donate-multiple) Thread b finished.(priority-donate-multiple) Thread b should have just finished.(priority-donate-multiple) Main thread should have priority 32.Actual priority: 32.(priority-donate-multiple) Thread a acquired lock a.(priority-donate-multiple) Thread a finished.(priority-donate-multiple) Thread a should have just finished.(priority-donate-multiple) Main thread should have priority 31.Actual priority: 31.(priority-donate-multiple) endEOFpass;