X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_analysis.t;h=4828b68074f194d253cac7ddb1b93e32b13b3458;hb=18f48b82060e4c183d100c352bf2d212094a2fa8;hp=5c23af68cf8b953d90cffbe8ab9ec439e676dcaf;hpb=6e526d95ab3ff2878cedc28808984d3ec6a16c88;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_analysis.t b/t/text_tradition_analysis.t
index 5c23af6..4828b68 100644
--- a/t/text_tradition_analysis.t
+++ b/t/text_tradition_analysis.t
@@ -56,7 +56,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'} );
 	# Check that we have the right row with the right groups
 	my $rank = $row->{'id'};