git.rot13.org Git - pxelator/blob - lib/PXElator/t/ssh.t

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