use 5.014;
BEGIN {
unless ( $^O eq 'MSWin32' ) {
plan skip_all => 'This is not MSWin32';
}
else {
plan tests => 7;
}
}
BEGIN {
use_ok 'Win32::Console::DotNet';
use_ok 'System';
}
my $stderr;
lives_ok { $stderr = System::Console->OpenStandardError() || die }
'GetStandardFile';
lives_ok { $stderr->say('say something') } 'say';
lives_ok { $stderr->flush() || die } 'flush';
lives_ok { $stderr->fileno() != -1 || die } 'fileno';
lives_ok { $stderr->close() || die } 'close';
done_testing;