Commit | Line | Data |
2e77eeef |
1 | use strictures 1; |
2 | use Test::More; |
3 | |
afd7c030 |
4 | use System::Introspector::Probe::DiskUsage; |
2e77eeef |
5 | |
afd7c030 |
6 | my $probe = System::Introspector::Probe::DiskUsage->new; |
ff3e98f6 |
7 | |
8 | my $result = $probe->gather; |
9 | ok $result, 'received data'; |
10 | my $data = $result->{disk_usage}; |
11 | ok $data, 'received disk usage data'; |
2e77eeef |
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; |