use reusable I/O utils, more solid error handling for DiskUsage probe

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

diff --git a/t/diskusage.t b/t/diskusage.t
index 6499aa3..aa8b27f 100644 (file)
--- a/t/diskusage.t
+++ b/t/diskusage.t
@@ -4,7 +4,11 @@ use Test::More;
 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 );