X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdiskusage.t;h=d6fb426372f8b60d0019ff949baf5d4aae8c5fa0;hb=ff4d9e13b7a10316ae73a025d173f8c34f0230a3;hp=6499aa3fbd640cffcece48d8ddfce7cca97442e4;hpb=2e77eeef29fd62961684b171c6fa3c6b8523a26c;p=scpubgit%2FSystem-Introspector.git diff --git a/t/diskusage.t b/t/diskusage.t index 6499aa3..d6fb426 100644 --- a/t/diskusage.t +++ b/t/diskusage.t @@ -1,10 +1,14 @@ use strictures 1; use Test::More; -use System::Introspector::DiskUsage; +use System::Introspector::Probe::DiskUsage; -my $probe = System::Introspector::DiskUsage->new; -my $data = $probe->gather; +my $probe = System::Introspector::Probe::DiskUsage->new; + +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 );