#!/usr/bin/perl -w
use strict;
use Test::More tests => 1;
use Test::Fatal;
use IPC::PerlSSH;
my $ips = IPC::PerlSSH->new( Command => "$^X" );
my $exception = exception { $ips->eval( 'exit 1' ) };
like( $exception, qr/^Remote connection closed/, 'exit(1) throws exception' );