[scpubgit/System-Introspector.git] / t / diskusage.t

use strictures 1;
use Test::More;

use System::Introspector::DiskUsage;

my $probe = System::Introspector::DiskUsage->new;
my $data  = $probe->gather;

ok scalar(@$data), 'received data';
my @fields = qw( filesystem blocks_1024 used available capacity mount_point );
for my $field (@fields) {
    ok not(grep { not defined $_->{$field} } @$data), "all have $field";
}

done_testing;
Commit	Line	Data
2e77eeef	1	use strictures 1;
	2	use Test::More;
	3
	4	use System::Introspector::DiskUsage;
	5
	6	my $probe = System::Introspector::DiskUsage->new;
	7	my $data = $probe->gather;
	8
	9	ok scalar(@$data), 'received data';
	10	my @fields = qw( filesystem blocks_1024 used available capacity mount_point );
	11	for my $field (@fields) {
	12	ok not(grep { not defined $_->{$field} } @$data), "all have $field";
	13	}
	14
	15	done_testing;