|
0
|
1 #!/usr/bin/env perl
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4 use Data::Dumper;
|
|
|
5 use Test::Files;
|
|
|
6
|
|
|
7 BEGIN { unshift( @INC, './lib' ) }
|
|
|
8
|
|
|
9 BEGIN {
|
|
|
10 use Test::Most;
|
|
|
11 use_ok('Bio::Roary::Output::GroupsMultifastas');
|
|
|
12 }
|
|
|
13
|
|
|
14 my $plot_groups_obj = Bio::Roary::AnalyseGroups->new(
|
|
|
15 fasta_files => [ 't/data/example_1.faa', 't/data/example_2.faa' ],
|
|
|
16 groups_filename => 't/data/example_groups'
|
|
|
17 );
|
|
|
18
|
|
|
19 ok(
|
|
|
20 my $obj = Bio::Roary::Output::GroupsMultifastas->new(
|
|
|
21 group_names => [ 'group_2', 'group_5' ],
|
|
|
22 analyse_groups => $plot_groups_obj
|
|
|
23 ),
|
|
|
24 'initialise creating multiple fastas'
|
|
|
25 );
|
|
|
26
|
|
|
27 ok( $obj->create_files(), 'Create multiple fasta files' );
|
|
|
28
|
|
|
29 # Check that the files have been created
|
|
|
30 ok( -e $obj->output_filename_base . '_group_2.fa', $obj->output_filename_base . '_group_2.fa'.' group created' );
|
|
|
31 ok( -e $obj->output_filename_base . '_group_5.fa', $obj->output_filename_base . '_group_2.fa'.' group created' );
|
|
|
32
|
|
|
33 compare_ok( $obj->output_filename_base . '_group_2.fa' ,
|
|
|
34 't/data/expected_output_groups_group_2_multi.fa',
|
|
|
35 'group 2 contect as expected'
|
|
|
36 );
|
|
|
37 compare_ok( $obj->output_filename_base . '_group_5.fa' ,
|
|
|
38 't/data/expected_output_groups_group_5_multi.fa',
|
|
|
39 'group 5 contect as expected'
|
|
|
40 );
|
|
|
41
|
|
|
42 unlink( $obj->output_filename_base . '_group_2.fa' );
|
|
|
43 unlink( $obj->output_filename_base . '_group_5.fa' );
|
|
|
44
|
|
|
45 done_testing();
|
