#!/usr/local/bin/perl -w
# Provided by Alex White. Thanks Alex!
use strict;
my $numtests;
BEGIN {
$numtests = 3;
}
use Test::More tests => $numtests;
BEGIN { use_ok('GRID::Machine', 'is_operative') };
my $test_exception_installed;
BEGIN {
$test_exception_installed = 1;
eval { require Test::Exception };
$test_exception_installed = 0 if $@;
}
my $host = $ENV{GRID_REMOTE_MACHINE};
my $machine;
SKIP: {
skip "Remote not operative or Test::Exception not installed", $numtests-1
unless ($test_exception_installed and $host && is_operative('ssh -p 22 -X', $host));
my $ssh_options = [ '-o', "RemoteForward=localhost:12348 localhost:12349" ];
Test::Exception::lives_ok {
$machine = GRID::Machine->new(
host => $host,
sshoptions => $ssh_options,
);
} 'No fatals creating a GRID::Machine object with "-o"';
# test the format "machine:port" and "sshoptions" in string form
Test::Exception::lives_ok {
$machine = GRID::Machine->new(
host => $host,
sshoptions => '-p 22 -X',
uses => [ 'Sys::Hostname' ]
);
} 'No fatals creating a GRID::Machine object with "-p 22 -X"';
} # end SKIP block