Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

tests: move tests from Root to Assembly and SeqIO (fixing commit 527d74f

)
  • Loading branch information...
commit dd028e1d9f1d5b277d5c6c6a81b7f8fbb6f17dbb 1 parent 7428844
@carandraug carandraug authored
Showing with 32 additions and 32 deletions.
  1. +11 −1 t/Assembly/core.t
  2. +1 −30 t/Root/RootIO.t
  3. +20 −1 t/SeqIO/SeqIO.t
View
12 t/Assembly/core.t
@@ -6,7 +6,7 @@ BEGIN {
use lib '.';
use Bio::Root::Test;
- test_begin( -tests => 890,
+ test_begin( -tests => 892,
-requires_module => 'DB_File' );
use_ok('Bio::Seq');
@@ -488,4 +488,14 @@ while (my $contig = $aio->next_contig) {
isa_ok $contig, 'Bio::Assembly::Contig';
}
+##############################################
+# test format() and variant() in Bio::RootIO
+##############################################
+
+$in = Bio::Assembly::IO->new(
+ -file => test_input_file('assembly_with_singlets.ace'),
+);
+is $in->format, 'ace';
+is $in->variant, 'consed';
+
exit;
View
31 t/Root/RootIO.t
@@ -7,11 +7,9 @@ BEGIN {
use lib '.';
use Bio::Root::Test;
- test_begin(-tests => 77);
+ test_begin(-tests => 69);
use_ok('Bio::Root::IO');
- use_ok('Bio::SeqIO');
- use_ok('Bio::Assembly::IO');
}
my $obj = Bio::Root::IO->new();
@@ -241,30 +239,3 @@ $line3 = $rio->_readline;
is($line3, "Bar\n");
$line3 = $rio->_readline;
is($line3, "Baz");
-
-
-##############################################
-# test format() and variant()
-##############################################
-
-my $in = Bio::SeqIO->new(
- -file => test_input_file('bug2901.fa'),
- -format => "fasta",
-);
-is $in->format, 'fasta';
-is $in->variant, undef;
-
-$in = Bio::SeqIO->new(
- -file => test_input_file('fastq', 'illumina_faked.fastq'),
- -format => "fastq",
- -variant => 'illumina',
-);
-is $in->format, 'fastq';
-is $in->variant, 'illumina';
-
-$in = Bio::Assembly::IO->new(
- -file => test_input_file('assembly_with_singlets.ace'),
-);
-is $in->format, 'ace';
-is $in->variant, 'consed';
-
View
21 t/SeqIO/SeqIO.t
@@ -7,7 +7,7 @@ BEGIN {
use lib '.';
use Bio::Root::Test;
- test_begin(-tests => 51);
+ test_begin(-tests => 55);
use_ok('Bio::SeqIO');
}
@@ -114,6 +114,25 @@ SKIP: {
# simple tests specific to Bio::SeqIO interface (applicable to all SeqIO
# modules)
+##############################################
+# test format() and variant() in Bio::RootIO
+##############################################
+
+my $in = Bio::SeqIO->new(
+ -file => test_input_file('bug2901.fa'),
+ -format => "fasta",
+);
+is $in->format, 'fasta';
+is $in->variant, undef;
+
+$in = Bio::SeqIO->new(
+ -file => test_input_file('fastq', 'illumina_faked.fastq'),
+ -format => "fastq",
+ -variant => 'illumina',
+);
+is $in->format, 'fastq';
+is $in->variant, 'illumina';
+
############ EXCEPTION HANDLING ############
TODO: {
Please sign in to comment.
Something went wrong with that request. Please try again.