X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fanalysis.t;h=b9e9d83053841ead7fc6fefdba908ee9d7f6f5c6;hb=428bcf0bc79f77a7857b21ef881708faa792e33a;hp=30c38524032e463050c789ab0254b37487fb747c;hpb=c84a47788777f257a330f9d011c03077e622310e;p=scpubgit%2Fstemmatology.git

diff --git a/t/analysis.t b/t/analysis.t
index 30c3852..b9e9d83 100755
--- a/t/analysis.t
+++ b/t/analysis.t
@@ -130,15 +130,15 @@ foreach my $row ( @{$results->{'variants'}} ) {
 			my %is_parent;
 			my @has_no_parent;
 			foreach my $rdg ( @{$row->{'readings'}} ) {
-				my $parents = $rdg->{'reading_parents'} || [];
-				foreach my $p ( @$parents ) {
+				my $parents = $rdg->{'reading_parents'} || {};
+				foreach my $p ( keys %$parents ) {
 					push( @{$is_parent{$p}}, $rdg->{'readingid'} );
 				}
-				push( @has_no_parent, $rdg->{'readingid'} ) unless @$parents;
+				push( @has_no_parent, $rdg->{'readingid'} ) unless keys %$parents;
 			}
 			# Test some stuff
 			foreach my $rdg ( @{$row->{'readings'}} ) {
-				is( $rdg->{'independent_occurrence'}, 1, 
+				is( @{$rdg->{'independent_occurrence'}}, 1, 
 					"Genealogical reading originates exactly once" );
 			}
 			is( @has_no_parent, 1, "Only one genealogical reading lacks a parent" );