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	#!/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	}