Skip to content

Commit

Permalink
convert tests to Test::More
Browse files Browse the repository at this point in the history
  • Loading branch information
Chris Fields committed Jan 18, 2012
1 parent f8e2408 commit f7d4d5e
Show file tree
Hide file tree
Showing 16 changed files with 75 additions and 132 deletions.
28 changes: 28 additions & 0 deletions eutils.komodoproject
View file
@@ -1,4 +1,32 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Komodo Project File - DO NOT EDIT -->
<project id="07a1c0fe-573a-6644-bfaf-a6c919e09a69" kpf_version="5" name="eutils.komodoproject">
<preference-set idref="07a1c0fe-573a-6644-bfaf-a6c919e09a69">
<long id="caretStyle">1</long>
<long id="caretWidth">1</long>
<boolean id="checkDiskFile">1</boolean>
<boolean id="checkNetworkDiskFile">1</boolean>
<string id="donotask_action_close_deleted_files"></string>
<string id="donotask_action_dragdrop_uri"></string>
<string id="donotask_action_reload_changed_files"></string>
<boolean id="donotask_buffer_conflicts_with_file_on_disk">0</boolean>
<boolean id="donotask_close_deleted_files">0</boolean>
<boolean id="donotask_dragdrop_uri">0</boolean>
<boolean id="donotask_reload_changed_files">0</boolean>
<boolean id="donotask_revert_buffer">0</boolean>
<boolean id="donotask_treat_large_documents_as_text">0</boolean>
<string id="perlDefaultInterpreter">/Users/cjfields/perl5/perlbrew/perls/perl-5.14.2/bin/perl</string>
<string id="perlExtraPaths">/Users/cjfields/bioperl/bioperl-live:/Users/cjfields/bioperl/Bio-EUtilities/lib:/Users/cjfields/bioperl/Bio-Parse/lib:/Users/cjfields/bioperl/biome/lib:/Users/cjfields/bioperl/bioperl-db/lib:/Users/cjfields/bioperl/bioperl-run/lib:/Users/cjfields/bioperl/Bio-EUtilities</string>
<boolean id="perl_debuggerlogenabled">0</boolean>
<string id="perl_debuggerlogpath"></string>
<boolean id="perl_lintOption_includeCurrentDirForLinter">1</boolean>
<boolean id="scrollEndAtLastLine">0</boolean>
<long id="scrollWidth">2000</long>
<boolean id="scrollWidthTracking">0</boolean>
<boolean id="select_most_recent_buffer_on_buffer_close">0</boolean>
<boolean id="showEOL">0</boolean>
<boolean id="showLineNumbers">1</boolean>
<boolean id="showWhitespace">0</boolean>
<long id="ySlop">5</long>
</preference-set>
</project>
2 changes: 1 addition & 1 deletion inc/TestHelper.pm
View file
@@ -1,4 +1,4 @@
package TestHelper;
package inc::TestHelper;
use strict;
use warnings;

Expand Down
12 changes: 3 additions & 9 deletions t/Tools/EUtilities/EUtilParameters.t
View file
Expand Up @@ -5,16 +5,10 @@
use strict;
use warnings;

BEGIN {
use lib '.';
use Bio::Root::Test;
use Test::More tests => 12;

test_begin(-tests => 13,
-requires_modules =>
[qw(URI HTTP::Request)]);

use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities::EUtilParameters;
use inc::TestHelper qw(test_input_file);

my @ids = qw(6679096 31543332 134288853 483581 20805941 187951953 169158074
123228044 148676374 114326469 148707003 187952787 123233807 148694865 148694864
Expand Down
11 changes: 3 additions & 8 deletions t/Tools/EUtilities/egquery.t
View file
Expand Up @@ -5,15 +5,10 @@
use strict;
use warnings;

BEGIN {
use lib '.';
use Bio::Root::Test;
use Test::More tests => 18;
use inc::TestHelper qw(test_input_file);

test_begin(-tests => 19,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
}
use Bio::Tools::EUtilities;

# Normal esearch
my $eutil = Bio::Tools::EUtilities->new(
Expand Down
12 changes: 3 additions & 9 deletions t/Tools/EUtilities/einfo.t
View file
Expand Up @@ -5,16 +5,10 @@
use strict;
use warnings;

BEGIN {
use lib '.';
use Bio::Root::Test;
use Test::More tests => 49;
use inc::TestHelper qw(test_input_file);

test_begin(-tests => 51,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;

## einfo (no dbs)
my $eutil = Bio::Tools::EUtilities->new(
Expand Down
12 changes: 3 additions & 9 deletions t/Tools/EUtilities/elink_acheck.t
View file
Expand Up @@ -4,16 +4,10 @@
use strict;
use warnings;

BEGIN {
use lib '.';
use Bio::Root::Test;
use Test::More tests => 128;

test_begin(-tests => 130,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use inc::TestHelper qw(test_input_file);

# check -correspondence => 0 (default) - this is set up to return the
# exact same thing as correspondece = 1, tested below)
Expand Down
13 changes: 3 additions & 10 deletions t/Tools/EUtilities/elink_lcheck.t
View file
Expand Up @@ -3,17 +3,10 @@

use strict;
use warnings;
use Test::More tests => 62;

BEGIN {
use lib '.';
use Bio::Root::Test;

test_begin(-tests => 64,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use inc::TestHelper qw(test_input_file);

# check -correspondence => 0 (default) - this is set up to return the
# exact same thing as correspondece = 1, tested below)
Expand Down
13 changes: 3 additions & 10 deletions t/Tools/EUtilities/elink_llinks.t
View file
Expand Up @@ -3,17 +3,10 @@

use strict;
use warnings;
use Test::More tests => 84;

BEGIN {
use lib '.';
use Bio::Root::Test;

test_begin(-tests => 86,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use inc::TestHelper qw(test_input_file);

# check -correspondence => 0 (default) - this is set up to return the
# exact same thing as correspondece = 1, tested below)
Expand Down
13 changes: 3 additions & 10 deletions t/Tools/EUtilities/elink_ncheck.t
View file
Expand Up @@ -4,17 +4,10 @@
use strict;
use warnings;

use Test::More tests => 58;

BEGIN {
use lib '.';
use Bio::Root::Test;

test_begin(-tests => 60,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use inc::TestHelper qw(test_input_file);

# check -correspondence => 0 (default) - this is set up to return the
# exact same thing as correspondece = 1, tested below)
Expand Down
13 changes: 3 additions & 10 deletions t/Tools/EUtilities/elink_neighbor.t
View file
Expand Up @@ -3,17 +3,10 @@

use strict;
use warnings;
use Test::More tests => 61;

BEGIN {
use lib '.';
use Bio::Root::Test;

test_begin(-tests => 63,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use inc::TestHelper qw(test_input_file);

# check -correspondence => 0 (default)
my $eutil = Bio::Tools::EUtilities->new(
Expand Down
13 changes: 3 additions & 10 deletions t/Tools/EUtilities/elink_neighbor_history.t
View file
Expand Up @@ -3,17 +3,10 @@

use strict;
use warnings;
use Test::More tests => 63;

BEGIN {
use lib '.';
use Bio::Root::Test;

test_begin(-tests => 65,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use inc::TestHelper qw(test_input_file);

# check -correspondence => 0 (default)
my $eutil = Bio::Tools::EUtilities->new(
Expand Down
13 changes: 3 additions & 10 deletions t/Tools/EUtilities/elink_scores.t
View file
Expand Up @@ -3,17 +3,10 @@

use strict;
use warnings;
use Test::More tests => 56;

BEGIN {
use lib '.';
use Bio::Root::Test;

test_begin(-tests => 58,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use inc::TestHelper qw(test_input_file);

# check -correspondence => 0 (default) - this is set up to return the
# exact same thing as correspondece = 1, tested below)
Expand Down
12 changes: 4 additions & 8 deletions t/Tools/EUtilities/epost.t
View file
Expand Up @@ -4,16 +4,12 @@
use strict;
use warnings;

BEGIN {
use lib '.';
use Bio::Root::Test;
use Test::More tests => 15;

test_begin(-tests => 17,
-requires_module => 'XML::Simple');
use Bio::Tools::EUtilities;
use Bio::Tools::EUtilities::EUtilParameters;

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use inc::TestHelper qw(test_input_file);

my $eutil = Bio::Tools::EUtilities->new(
-eutil => 'epost',
Expand Down
13 changes: 4 additions & 9 deletions t/Tools/EUtilities/esearch.t
View file
Expand Up @@ -5,16 +5,11 @@
use strict;
use warnings;

BEGIN {
use lib '.';
use Bio::Root::Test;
use Test::More tests => 31;

test_begin(-tests => 33,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use Bio::Tools::EUtilities::EUtilParameters;
use inc::TestHelper qw(test_input_file);

my @ids = qw(6679096 31543332 134288853 483581 20805941 187951953 169158074
123228044 148676374 114326469 148707003 187952787 123233807 148694865 148694864
Expand Down
13 changes: 4 additions & 9 deletions t/Tools/EUtilities/espell.t
View file
Expand Up @@ -5,16 +5,11 @@
use strict;
use warnings;

BEGIN {
use lib '.';
use Bio::Root::Test;
use Test::More tests => 20;

test_begin(-tests => 22,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use Bio::Tools::EUtilities::EUtilParameters;
use inc::TestHelper qw(test_input_file);

# Normal esearch
my $eutil = Bio::Tools::EUtilities->new(
Expand Down
14 changes: 4 additions & 10 deletions t/Tools/EUtilities/esummary.t
View file
Expand Up @@ -3,17 +3,11 @@

use strict;
use warnings;
use Test::More tests => 81;

BEGIN {
use lib '.';
use Bio::Root::Test;

test_begin(-tests => 83,
-requires_module => 'XML::Simple');

use_ok('Bio::Tools::EUtilities');
use_ok('Bio::Tools::EUtilities::EUtilParameters');
}
use Bio::Tools::EUtilities;
use Bio::Tools::EUtilities::EUtilParameters;
use inc::TestHelper qw(test_input_file);

my $eutil = Bio::Tools::EUtilities->new(
-eutil => 'esummary',
Expand Down

0 comments on commit f7d4d5e

Please sign in to comment.