[Bioperl-guts-l] bioperl-live/t LocusLink.t,1.6,1.7

Brian Osborne bosborne at pub.open-bio.org
Fri Sep 16 08:26:59 EDT 2005


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

Modified Files:
	LocusLink.t 
Log Message:
Correct END message, add warning


Index: LocusLink.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/LocusLink.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** LocusLink.t	27 Oct 2004 20:21:28 -0000	1.6
--- LocusLink.t	16 Sep 2005 12:26:57 -0000	1.7
***************
*** 7,31 ****
  
  BEGIN {
!     eval { require Test; };
!     if( $@ ) {
! 	use lib 't';
!     }
!     use Test;
!     eval {
! 	require Graph::Directed; 
! 	$HAVEGRAPHDIRECTED=1;
!     };
!     if ($@) {
! 	$HAVEGRAPHDIRECTED = 0;
!     }
! 
!     plan tests => ($NUMTESTS = 23);
  }
  
  END {
!     foreach ( $Test::ntest..$NUMTESTS) {
! 	skip('Cannot run tests as Graph::Directed is not installed',1);
!     }
!     unlink("locuslink-test.out.embl");
  }
  
--- 7,31 ----
  
  BEGIN {
! 	eval { require Test; };
! 	if( $@ ) {
! 		use lib 't';
! 	}
! 	use Test;
! 	eval {
! 		require Graph::Directed; 
! 		$HAVEGRAPHDIRECTED=1;
! 	};
! 	if ($@) {
! 		$HAVEGRAPHDIRECTED = 0;
! 		warn "Graph::Directed not installed, skipping tests\n";
! 	}
! 	plan tests => ($NUMTESTS = 23);
  }
  
  END {
! 	foreach ( $Test::ntest..$NUMTESTS) {
! 		skip('Cannot complete LocusLink tests, skipping',1);
! 	}
! 	unlink("locuslink-test.out.embl") if -e "locuslink-test.out.embl";
  }
  



More information about the Bioperl-guts-l mailing list