PXElator/t/ssh.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 3;

use_ok 'ssh';

ok( ssh::ethernet_bridge_to( '10.60.0.94' ), 'ethernet_bridge' );

ok( ssh::shell( '127.0.0.1', 'uname -a' ), 'shell' );
1	dpavlin	283	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	353	use Test::More tests => 3;
8	dpavlin	283
9			use_ok 'ssh';
10
11			ok( ssh::ethernet_bridge_to( '10.60.0.94' ), 'ethernet_bridge' );
12	dpavlin	353
13			ok( ssh::shell( '127.0.0.1', 'uname -a' ), 'shell' );