From 8e4f7f6468703c846943e46c6a680afc03be649f Mon Sep 17 00:00:00 2001 From: Chris Fields Date: Thu, 19 May 2011 16:06:12 -0500 Subject: [PATCH] this module requires Config::Any; skip these tests if Config::Any isn't present --- Build.PL | 2 +- t/Match.t | 7 ++++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Build.PL b/Build.PL index 1610352..a577ecf 100755 --- a/Build.PL +++ b/Build.PL @@ -24,7 +24,7 @@ my $build = Module::Build->new( 'IO::String' => 0, # generating Bio::Tree::Tree from strings: Bio::Tools::Run::Phylo::Phylip::Consense 'XML::Twig' => 0, # processing XML data: Bio::Tools::Run::EMBOSSacd 'File::Sort' => 0, # BEDTools - 'Config::Any' => 0 # MCS + 'Config::Any' => 0 # MCS, Match }, get_options => { accept => { }, diff --git a/t/Match.t b/t/Match.t index 5994250..a26819a 100755 --- a/t/Match.t +++ b/t/Match.t @@ -5,7 +5,8 @@ use strict; BEGIN { use Bio::Root::Test; - test_begin(-tests => 7); + test_begin(-tests => 7, + -requires_modules => ['Config::Any']); use_ok('Bio::Tools::Run::Match'); } @@ -27,11 +28,11 @@ is ($factory->program_name(), 'match', 'Correct exe default name'); SKIP: { test_skip(-tests => 2, -requires_executable => $factory); - + use_ok('Bio::SeqIO'); my $si = Bio::SeqIO->new(-file => $seq_file, -format => 'fasta'); my $seq = $si->next_seq; - + my @results = $factory->run($seq); is @results, 246; } -- 2.11.4.GIT