more robust boolean value checking in tests

[scpubgit/stemmatology.git] / t / text_tradition_analysis.t

diff --git a/t/text_tradition_analysis.t b/t/text_tradition_analysis.t
index 74428ef..8340d4c 100644 (file)
--- a/t/text_tradition_analysis.t
+++ b/t/text_tradition_analysis.t
@@ -55,7 +55,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" );