X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fanalysis.t;h=30c38524032e463050c789ab0254b37487fb747c;hb=1ff82d4f33cfde715c3f06f4e7b6735ad389745c;hp=2388d91c0f582f6e2e3952dc5534b4c0bd1b19cc;hpb=fae07016dc0e300ca65f3ca03d408c47d80c9217;p=scpubgit%2Fstemmatology.git

diff --git a/t/analysis.t b/t/analysis.t
index 2388d91..30c3852 100755
--- a/t/analysis.t
+++ b/t/analysis.t
@@ -118,7 +118,8 @@ foreach my $row ( @{$results->{'variants'}} ) {
 		unless( exists $expected{$row->{'id'}} ) {
 			$expected{$row->{'id'}} = 1;
 		}
-		is( $row->{'genealogical'}, $expected{$row->{'id'}}, 
+		my $gen_bool = $row->{'genealogical'} ? 1 : '';
+		is( $gen_bool, $expected{$row->{'id'}}, 
 			"Got expected genealogical result for rank " . $row->{'id'} );
 		# If the row is genealogical, there should be one reading with no parents,
 		# every reading should independently occur exactly once, and the total