--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Roary/t/Bio/Roary/Output/GroupsMultifastas.t	Fri May 14 20:27:06 2021 +0000
@@ -0,0 +1,45 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Data::Dumper;
+use Test::Files;
+
+BEGIN { unshift( @INC, './lib' ) }
+
+BEGIN {
+    use Test::Most;
+    use_ok('Bio::Roary::Output::GroupsMultifastas');
+}
+
+my $plot_groups_obj = Bio::Roary::AnalyseGroups->new(
+    fasta_files     => [ 't/data/example_1.faa', 't/data/example_2.faa' ],
+    groups_filename => 't/data/example_groups'
+);
+
+ok(
+    my $obj = Bio::Roary::Output::GroupsMultifastas->new(
+        group_names    => [ 'group_2', 'group_5' ],
+        analyse_groups => $plot_groups_obj
+    ),
+    'initialise creating multiple fastas'
+);
+
+ok( $obj->create_files(), 'Create multiple fasta files' );
+
+# Check that the files have been created
+ok( -e $obj->output_filename_base . '_group_2.fa', $obj->output_filename_base . '_group_2.fa'.' group created' );
+ok( -e $obj->output_filename_base . '_group_5.fa', $obj->output_filename_base . '_group_2.fa'.' group created' );
+
+compare_ok( $obj->output_filename_base . '_group_2.fa' ,
+    't/data/expected_output_groups_group_2_multi.fa',
+    'group 2 contect as expected'
+);
+compare_ok( $obj->output_filename_base . '_group_5.fa' ,
+    't/data/expected_output_groups_group_5_multi.fa',
+    'group 5 contect as expected'
+);
+
+unlink( $obj->output_filename_base . '_group_2.fa' );
+unlink( $obj->output_filename_base . '_group_5.fa' );
+
+done_testing();