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

# -*- perl -*-
use strict;
use warnings;
use tests::tests;
check_expected ([<<‘EOF’]);(priority-change) begin(priority-change) Creating a high-priority thread 2.(priority-change) Thread 2 now lowering priority.(priority-change) Thread 2 should have just lowered its priority.(priority-change) Thread 2 exiting.(priority-change) Thread 2 should have just exited.(priority-change) endEOFpass;