From ed4a7b1c34ea0d0288b1e5a589b707712b7a624f Mon Sep 17 00:00:00 2001
From: jason <jason@bioperl.org>
Date: Fri, 5 Jul 2002 18:50:00 +0000
Subject: [PATCH] tests find the mat and data file now, and will skip tests
 when genscan exe is not available

svn path=/bioperl-run/trunk/; revision=13124
---
 t/Genscan.t | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/t/Genscan.t b/t/Genscan.t
index 5bd60b3..15e5ee4 100644
--- a/t/Genscan.t
+++ b/t/Genscan.t
@@ -13,13 +13,20 @@ BEGIN {
     $NTESTS = 12;
     plan tests => $NTESTS;
 }
+
+END {
+  foreach ( $Test::ntest..$NTESTS ) {
+	skip('Unable to run Genscan tests, exe may not be installed',1);
+  }
+}
+
 use Bio::Tools::Run::Genscan;
 use Bio::Root::IO;
 
 ok(1);
 my $verbose = -1;
 
-my $paramfile = ("data/HumanIso.smat");
+my $paramfile = Bio::Root::IO->catfile("t", "data", "HumanIso.smat");
 my @params = ('MATRIX',$paramfile);
 #my  $factory = Bio::Tools::Run::Genscan->new(MATRIX=>$paramfile);
 my  $factory = Bio::Tools::Run::Genscan->new(@params);
@@ -27,8 +34,7 @@ ok $factory->isa('Bio::Tools::Run::Genscan');
 
 
 #test with one file with 2 sequences
-my $inputfilename = Bio::Root::IO->catfile("data","Genscan.FastA");
-#my $inputfilename = Bio::Root::IO->catfile("code1.FastA");
+my $inputfilename = Bio::Root::IO->catfile("t","data","Genscan.FastA");
 my $seq1 = Bio::Seq->new();
 my $seqstream = Bio::SeqIO->new(-file => $inputfilename, -fmt => 'Fasta');
 $seq1 = $seqstream->next_seq();
-- 
2.11.4.GIT