[Bioperl-guts-l] bioperl-live/t SearchIO.t,1.96.4.3,1.96.4.4

Christopher John Fields cjfields at dev.open-bio.org
Fri Oct 20 12:37:31 EDT 2006


Update of /home/repository/bioperl/bioperl-live/t
In directory dev.open-bio.org:/tmp/cvs-serv6808/t

Modified Files:
      Tag: branch-1-5-2
	SearchIO.t 
Log Message:
updating from HEAD

Index: SearchIO.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/SearchIO.t,v
retrieving revision 1.96.4.3
retrieving revision 1.96.4.4
diff -C2 -d -r1.96.4.3 -r1.96.4.4
*** SearchIO.t	16 Oct 2006 17:08:15 -0000	1.96.4.3
--- SearchIO.t	20 Oct 2006 16:37:29 -0000	1.96.4.4
***************
*** 8,14 ****
  my $error;
  
! use vars qw($SKIPXML $LASTXMLTEST); 
  use strict;
- use lib '.';
  use Dumpvalue();
  my $dumper = new Dumpvalue();
--- 8,13 ----
  my $error;
  
[...3228 lines suppressed...]
!             is($hsp->length('hsp'), 291);
!             is($hsp->start('hit'), $hsp->hit->start);
!             is($hsp->end('query'), $hsp->query->end);
!             is($hsp->strand('sbjct'), $hsp->subject->strand);# alias for hit
!             cmp_ok($hsp->evalue, '==', 6e-59);
!             is($hsp->score, 119);
!             is($hsp->bits,236);	    	    
!             is(sprintf("%.2f",$hsp->percent_identity), 85.22);
!             is(sprintf("%.4f",$hsp->frac_identical('query')), 0.8522);
!             is(sprintf("%.4f",$hsp->frac_identical('hit')), 0.8522);
!             is($hsp->gaps, 0);
              $hsps_left--;
          }
!         is($hsps_left, 0);
      }
      last if( $count++ > @valid );
  }
! is(@valid, 0);
  
  # some utilities



More information about the Bioperl-guts-l mailing list