[Bioperl-guts-l] bioperl-run/t Glimmer2.t,1.2,1.3

Senduran Balasubramaniam sendu at dev.open-bio.org
Thu Jun 14 10:41:50 EDT 2007


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

Modified Files:
	Glimmer2.t 
Log Message:
corrected skip

Index: Glimmer2.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/t/Glimmer2.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Glimmer2.t	14 Mar 2007 03:54:38 -0000	1.2
--- Glimmer2.t	14 Jun 2007 14:41:48 -0000	1.3
***************
*** 3,7 ****
--- 3,11 ----
  # #
  use strict;
+ use vars qw($NTESTS);
+ 
  BEGIN {
+     $NTESTS = 217;
+     
      eval { require Test::More; };
      if( $@ ) {
***************
*** 9,14 ****
      }
      use Test::More;
!     use vars qw($NTESTS);
!     $NTESTS = 217;
      plan tests => $NTESTS;
      use_ok('Bio::Tools::Run::Glimmer');
--- 13,17 ----
      }
      use Test::More;
!     
      plan tests => $NTESTS;
      use_ok('Bio::Tools::Run::Glimmer');
***************
*** 32,38 ****
      my $glimmer_present = $factory->executable();
      
-     # I'm guessing here
      unless ($glimmer_present) {
!         skip("glimmer2 program not found. Skipping tests 5 to $NTESTS.",199);
      }
      
--- 35,40 ----
      my $glimmer_present = $factory->executable();
      
      unless ($glimmer_present) {
!         skip("glimmer2 program not found. Skipping tests 5 to $NTESTS.", ($NTESTS - 4));
      }
      



More information about the Bioperl-guts-l mailing list