[Bioperl-guts-l] bioperl-run/t TCoffee.t,1.22,1.23

Jason Stajich jason at pub.open-bio.org
Sun Sep 25 13:36:23 EDT 2005


Update of /home/repository/bioperl/bioperl-run/t
In directory pub.open-bio.org:/tmp/cvs-serv12637/t

Modified Files:
	TCoffee.t 
Log Message:
more relaxed percent id checking, this is probably not the best way to write a test since different versions start to produce different pid


Index: TCoffee.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/t/TCoffee.t,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** TCoffee.t	29 Nov 2002 17:04:20 -0000	1.22
--- TCoffee.t	25 Sep 2005 17:36:21 -0000	1.23
***************
*** 110,115 ****
      ok( int($aln->average_percentage_identity), 44);
  } else {
!     ok( int($aln->overall_percentage_identity), 21);
!     ok( int($aln->average_percentage_identity), 47);    
  }
  
--- 110,117 ----
      ok( int($aln->average_percentage_identity), 44);
  } else {
!     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');    
  }
  
***************
*** 125,130 ****
      ok( int($aln->average_percentage_identity), 44);
  } else {
!     ok( int($aln->overall_percentage_identity), 14);
!     ok( int($aln->average_percentage_identity),41);    
  }
  
--- 127,134 ----
      ok( int($aln->average_percentage_identity), 44);
  } else {
!     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);    
  }
  



More information about the Bioperl-guts-l mailing list