4 use System::Introspector::DiskUsage;
6 my $probe = System::Introspector::DiskUsage->new;
7 my $data = $probe->gather;
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";