annotate Roary/t/Bio/Roary/PrepareInputFiles.t @ 0:c47a5f61bc9f draft

Uploaded
author dereeper
date Fri, 14 May 2021 20:27:06 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
1 #!/usr/bin/env perl
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
2 use strict;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
3 use warnings;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
4 use Data::Dumper;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
5 use File::Basename;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
6
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
7 BEGIN { unshift( @INC, './lib' ) }
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
8 $ENV{PATH} .= ":./bin";
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
9
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
10 BEGIN {
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
11 use Test::Most;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
12 use_ok('Bio::Roary::PrepareInputFiles');
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
13 }
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
14
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
15 my $obj;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
16
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
17 ok(
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
18 $obj = Bio::Roary::PrepareInputFiles->new(
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
19 input_files => [
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
20 't/data/example_annotation.gff', 't/data/example_1.faa',
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
21 't/data/example_annotation_2.gff', 't/data/example_2.faa','t/data/sequences_with_unknowns.faa'
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
22 ],
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
23 ),
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
24 'initalise'
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
25 );
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
26
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
27 my @sorted_fasta_files = sort map { basename($_) } sort @{$obj->fasta_files};
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
28 my @expected_fasta_files = sort((
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
29 'example_1.faa.tmp.filtered.fa',
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
30 'example_2.faa.tmp.filtered.fa',
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
31 'example_annotation.gff.proteome.faa',
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
32 'example_annotation_2.gff.proteome.faa',
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
33 'sequences_with_unknowns.faa.tmp.filtered.fa'
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
34 ));
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
35
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
36 is_deeply(
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
37 \@sorted_fasta_files,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
38 \@expected_fasta_files,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
39 'proteome extracted from gff files, input fasta files filtered'
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
40 );
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
41
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
42 my @input_files_lookup = sort map { basename($_) } @{$obj->lookup_fasta_files_from_unknown_input_files( [ 't/data/example_annotation_2.gff', 't/data/example_1.faa' ] )};
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
43 is_deeply(
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
44 \@input_files_lookup,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
45 ['example_1.faa.tmp.filtered.fa','example_annotation_2.gff.proteome.faa'],
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
46 'previously created faa file looked up from gff filename'
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
47 );
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
48
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
49 unlink('example_annotation.gff.proteome.faa');
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
50 unlink('example_annotation_2.gff.proteome.faa');
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
51 unlink('sequences_with_unknowns.faa.tmp.filtered.fa');
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
52 unlink('example_1.faa.tmp.filtered.fa');
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
53 unlink('example_2.faa.tmp.filtered.fa');
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
54
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
55 done_testing();
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
56