Mercurial > repos > dereeper > roary_plots

comparison Roary/t/Bio/Roary/Output/GroupsMultifastas.t @ 0:c47a5f61bc9f draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author dereeper
date Fri, 14 May 2021 20:27:06 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:c47a5f61bc9f
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();