[Bioperl-guts-l] bioperl-run/t Primer3.t,1.3,1.4

Senduran Balasubramaniam sendu at dev.open-bio.org
Fri Nov 24 04:10:51 EST 2006


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

Modified Files:
	Primer3.t 
Log Message:
don't fail if optional Clone module isn't installed

Index: Primer3.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/t/Primer3.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Primer3.t	27 Sep 2005 14:15:01 -0000	1.3
--- Primer3.t	24 Nov 2006 09:10:48 -0000	1.4
***************
*** 7,10 ****
--- 7,11 ----
  use strict;
  
+ use vars qw($ERROR);
  use constant NUMTESTS => 8;
  
***************
*** 15,19 ****
      }
      use Test;
! 
      plan tests => NUMTESTS;
  }
--- 16,26 ----
      }
      use Test;
!     
!     eval {  require Clone; };
!     if ( $@ ) {
!         warn("Clone not installed. This means that the module is not usable. Skipping tests\n");
!         $ERROR = 1;
!     }
!     
      plan tests => NUMTESTS;
  }
***************
*** 21,30 ****
  END {
      for ( $Test::ntest..NUMTESTS ) {
!         skip("primer3 program not found. Skipping. You can get this from http://www-genome.wi.mit.edu/genome_software/other/primer3.html",1);
      }
  }
  
  
! use Bio::Tools::Run::Primer3;
  use Bio::SeqIO;
  ok(1);
--- 28,38 ----
  END {
      for ( $Test::ntest..NUMTESTS ) {
!         skip("primer3 program not found, or missing dependencies. Skipping. You can get this from http://www-genome.wi.mit.edu/genome_software/other/primer3.html",1);
      }
  }
  
+ exit 0 if $ERROR;
  
! require Bio::Tools::Run::Primer3;
  use Bio::SeqIO;
  ok(1);



More information about the Bioperl-guts-l mailing list