Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

convert tests to Test::More

  • Loading branch information...
commit f7d4d5ef1d95509beb2591240014b93f56261652 1 parent f8e2408
Chris Fields authored
View
28 eutils.komodoproject
@@ -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>
View
2  inc/TestHelper.pm
@@ -1,4 +1,4 @@
-package TestHelper;
+package inc::TestHelper;
use strict;
use warnings;
View
12 t/Tools/EUtilities/EUtilParameters.t
@@ -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
View
11 t/Tools/EUtilities/egquery.t
@@ -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(
View
12 t/Tools/EUtilities/einfo.t
@@ -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(
View
12 t/Tools/EUtilities/elink_acheck.t
@@ -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)
View
13 t/Tools/EUtilities/elink_lcheck.t
@@ -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)
View
13 t/Tools/EUtilities/elink_llinks.t
@@ -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)
View
13 t/Tools/EUtilities/elink_ncheck.t
@@ -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)
View
13 t/Tools/EUtilities/elink_neighbor.t
@@ -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(
View
13 t/Tools/EUtilities/elink_neighbor_history.t
@@ -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(
View
13 t/Tools/EUtilities/elink_scores.t
@@ -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)
View
12 t/Tools/EUtilities/epost.t
@@ -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',
View
13 t/Tools/EUtilities/esearch.t
@@ -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
View
13 t/Tools/EUtilities/espell.t
@@ -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(
View
14 t/Tools/EUtilities/esummary.t
@@ -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',
Please sign in to comment.
Something went wrong with that request. Please try again.