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

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6
   7 use Test::More tests => 9;
   8
   9 use_ok 'shell';
  10
  11 foreach my $command ( 'sudo brctl show', 'df -P' ) {
  12         ok( my $array = shell->command($command)->lines, $command );
  13         isa_ok( $array, 'ARRAY' );
  14
  15         ok( my $hash = shell->command($command)->hash_by(1), $command );
  16         isa_ok( $hash, 'HASH' );
  17 }