top level git/error value
Robert 'phaylon' Sedlacek [Thu, 10 May 2012 02:06:27 +0000 (02:06 +0000)]
t/repositories-git.t

index 48521ca..93967bc 100644 (file)
@@ -22,7 +22,10 @@ my $probe = System::Introspector::Repositories::Git->new(
     root => "$dir",
 );
 
-my $data = $probe->gather;
+my $result = $probe->gather;
+ok $result, 'received data';
+my $data = $result->{git};
+ok $data, 'received git data';
 is scalar(keys %$data), 1, 'found single git repository';
 
 my $wc = $data->{ $dir };