X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FAnalysis.pm;fp=lib%2FText%2FTradition%2FAnalysis.pm;h=8dcf25da013c9ef9f21cc4120e4ca378403bc4b9;hb=adc08836a8f9e1bff3b372c498ac1dcda1100894;hp=bf4c9380737b04a6fea001eb5ba17951ecb6703f;hpb=fd602649809892770f8d64c5ead048b094d44b50;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Analysis.pm b/lib/Text/Tradition/Analysis.pm
index bf4c938..8dcf25d 100644
--- a/lib/Text/Tradition/Analysis.pm
+++ b/lib/Text/Tradition/Analysis.pm
@@ -107,7 +107,8 @@ foreach my $row ( @{$data->{'variants'}} ) {
 	unless( exists $expected_genealogical{$row->{'id'}} ) {
 		$expected_genealogical{$row->{'id'}} = 1;
 	}
-	is( $row->{'genealogical'}, $expected_genealogical{$row->{'id'}}, 
+	my $gen_bool = $row->{'genealogical'} ? 1 : 0;
+	is( $gen_bool, $expected_genealogical{$row->{'id'}}, 
 		"Got correct genealogical flag for row " . $row->{'id'} );
 }
 is( $data->{'variant_count'}, 58, "Got right total variant number" );