use
5.014;
use
warnings;
use
Test::More;
use
Test::Exception;
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;