From cac26e07d3af19222e35068ebf2203b42d992004 Mon Sep 17 00:00:00 2001 From: jason Date: Sun, 25 Sep 2005 17:36:21 +0000 Subject: [PATCH] more relaxed percent id checking, this is probably not the best way to write a test since different versions start to produce different pid svn path=/bioperl-run/trunk/; revision=13627 --- t/TCoffee.t | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/t/TCoffee.t b/t/TCoffee.t index 685061a..90e4948 100644 --- a/t/TCoffee.t +++ b/t/TCoffee.t @@ -109,8 +109,10 @@ if( $version <= 1.22 ) { ok( $aln->overall_percentage_identity > 18); ok( int($aln->average_percentage_identity), 44); } else { - ok( int($aln->overall_percentage_identity), 21); - ok( int($aln->average_percentage_identity), 47); + my $overall = int($aln->overall_percentage_identity); + ok( $overall >=21 && $overall <= 23, 1, 'expect 21 >= val >= 23'); + my $avg = int($aln->average_percentage_identity); + ok( $avg == 47 || $avg ==48, 1, 'expect 47 or 48'); } # test new 'run' generic running of factory @@ -124,8 +126,10 @@ if( $version <= 1.22 ) { ok( $aln->overall_percentage_identity > 18); ok( int($aln->average_percentage_identity), 44); } else { - ok( int($aln->overall_percentage_identity), 14); - ok( int($aln->average_percentage_identity),41); + my $overall = int $aln->overall_percentage_identity; + ok($overall == 14 || $overall == 13,1,'expect 13 or 14'); + my $avg = int($aln->average_percentage_identity); + ok($avg,41); } $aln = $factory->run('-type' => 'align', -- 2.11.4.GIT