allow wordforms to be cleared out

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

diff --git a/t/analysis.t b/t/analysis.t
index 2388d91..30c3852 100755 (executable)
--- 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