use 5.014;
BEGIN {
unless ( $^O eq 'MSWin32' ) {
plan skip_all => 'This is not MSWin32';
}
else {
plan tests => 2;
}
}
BEGIN {
use_ok 'Win32::Console::DotNet';
}
throws_ok(
sub { System::Console->ColorAttributeToConsoleColor(0) },
qr/Can't|Undefined/i,
'Exception when calling a private subroutine'
);
done_testing;