t/diskusage.t

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