PXElator/t/shell.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 9;

use_ok 'shell';

foreach my $command ( 'sudo brctl show', 'df -P' ) {
        ok( my $array = shell->command($command)->lines, $command );
        isa_ok( $array, 'ARRAY' );

        ok( my $hash = shell->command($command)->hash_by(1), $command );
        isa_ok( $hash, 'HASH' );
}
1	dpavlin	204	#!/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			}