X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_analysis.t;h=74428ef98545dcc15623dfbb032e0f3ea22205df;hb=679f17e1a60a81370df8cbb49b94a2b5d19e3a98;hp=8340d4cf824f4ae25bc71b458097fe71cf727358;hpb=a2ed66b255a1b88374b5279faa18f0c390ca5dbb;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_analysis.t b/t/text_tradition_analysis.t
index 8340d4c..74428ef 100644
--- a/t/text_tradition_analysis.t
+++ b/t/text_tradition_analysis.t
@@ -55,8 +55,7 @@ foreach my $row ( @{$data->{'variants'}} ) {
 	unless( exists $expected_genealogical{$row->{'id'}} ) {
 		$expected_genealogical{$row->{'id'}} = 1;
 	}
-	my $gen_bool = $row->{'genealogical'} ? 1 : 0;
-	is( $gen_bool, $expected_genealogical{$row->{'id'}}, 
+	is( $row->{'genealogical'}, $expected_genealogical{$row->{'id'}}, 
 		"Got correct genealogical flag for row " . $row->{'id'} );
 }
 is( $data->{'variant_count'}, 58, "Got right total variant number" );