ok 49 - run method executes successfuly
ok 50 - shift_command works
ok 51 - The object isa Siebel::Srvrmgr::Daemon::Command
ok 52 - shift_command works
ok 53 - shift_command works
ok 54 - run method executes successfuly (2)
ok 55 - run method executes successfuly (3)
not ok 56 - run method fail due timeout # TODO Usage of alarm must be reviewed
#   Failed (TODO) test 'run method fail due timeout'
#   at t/Test/Siebel/Srvrmgr/Daemon.pm line 207.
#   (in Test::Siebel::Srvrmgr::Daemon->runs_blocked)
sysread() on unopened filehandle 1 at .\lib/Siebel/Srvrmgr/Daemon.pm line 1364.
not ok 57 - runs_with_stderr died (sysreading from 11 returned an unrecoverable error at .\lib/Siebel/Srvrmgr/Daemon.pm line 847)
#   Failed test 'runs_with_stderr died (sysreading from 11 returned an unrecoverable error at .\lib/Siebel/Srvrmgr/Daemon.pm line 847)'
#   at .\t\Daemon.t line 4.
#   (in Test::Siebel::Srvrmgr::Daemon->runs_with_stderr)
ok 58 # skip runs_with_stderr died
ok 59 # skip runs_with_stderr died
ok 60 # skip runs_with_stderr died
# Looks like you failed 1 test of 60.

##</code><code>##

sub _mswin_pipe {

    my ( $read, $write ) =
      IO::Socket->socketpair( AF_UNIX, SOCK_STREAM, PF_UNSPEC );

# :WORKAROUND:14/08/2013 14:15:04:: shutdown the socket seems to disable the filehandle in Windows
    unless ( $Config{osname} eq 'MSWin32' ) {

        Siebel::Srvrmgr::IPC::_check_shutdown( 'read',
            $read->shutdown(SHUT_WR) );    # No more writing for reader
        Siebel::Srvrmgr::IPC::_check_shutdown( 'write',
            $write->shutdown(SHUT_RD) );    # No more reading for writer

    }

    return ( $read, $write );

}