use System::Introspector::DiskUsage;
my $probe = System::Introspector::DiskUsage->new;
-my $data = $probe->gather;
+
+my $result = $probe->gather;
+ok $result, 'received data';
+my $data = $result->{disk_usage};
+ok $data, 'received disk usage data';
ok scalar(@$data), 'received data';
my @fields = qw( filesystem blocks_1024 used available capacity mount_point );