[Bioperl-guts-l] bioperl-run/t Tmhmm.t,1.7,1.8

Senduran Balasubramaniam sendu at dev.open-bio.org
Tue Dec 5 11:45:05 EST 2006


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

Modified Files:
	Tmhmm.t 
Log Message:
corrected number of tests

Index: Tmhmm.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/t/Tmhmm.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Tmhmm.t	20 Nov 2006 16:20:17 -0000	1.7
--- Tmhmm.t	5 Dec 2006 16:45:02 -0000	1.8
***************
*** 11,15 ****
     use Test;
     use vars qw($NTESTS);
!    $NTESTS = 5;
     plan tests => $NTESTS;
  }
--- 11,15 ----
     use Test;
     use vars qw($NTESTS);
!    $NTESTS = 8;
     plan tests => $NTESTS;
  }
***************
*** 20,32 ****
     }
  }
! ok(1);
  use Bio::Tools::Run::Tmhmm;
  use Bio::Root::IO;
  use Bio::SeqIO;
! use Bio::Seq;
  
  # AHEM - Fugu guys, can you make sure this is genericized?
  
! my  $factory = Bio::Tools::Run::Tmhmm->new();
  ok $factory->isa('Bio::Tools::Run::Tmhmm');
  my $tmhmm_present = $factory->executable();
--- 20,33 ----
     }
  }
! 
  use Bio::Tools::Run::Tmhmm;
  use Bio::Root::IO;
  use Bio::SeqIO;
! 
! ok(1);
  
  # AHEM - Fugu guys, can you make sure this is genericized?
  
! my $factory = Bio::Tools::Run::Tmhmm->new();
  ok $factory->isa('Bio::Tools::Run::Tmhmm');
  my $tmhmm_present = $factory->executable();
***************
*** 39,45 ****
  ok(-e $prot_file);
  
- my $seq1 = Bio::Seq->new();
  my $seqstream = Bio::SeqIO->new(-file => $prot_file, -fmt => 'Fasta');
! $seq1 = $seqstream->next_seq();
  ok( $seq1->isa('Bio::Seq') );
  my @feat = $factory->run($seq1);
--- 40,45 ----
  ok(-e $prot_file);
  
  my $seqstream = Bio::SeqIO->new(-file => $prot_file, -fmt => 'Fasta');
! my $seq1 = $seqstream->next_seq();
  ok( $seq1->isa('Bio::Seq') );
  my @feat = $factory->run($seq1);



More information about the Bioperl-guts-l mailing list