--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Roary/t/Bio/Roary/GroupLabels.t	Fri May 14 20:27:06 2021 +0000
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Data::Dumper;
+use Test::Files;
+
+BEGIN { unshift( @INC, './lib' ) }
+$ENV{PATH} .= ":./bin";
+
+BEGIN {
+    use Test::Most;
+    use_ok('Bio::Roary::GroupLabels');
+}
+
+ok(
+    my $obj = Bio::Roary::GroupLabels->new(
+        groups_filename => 't/data/example_groups_without_labels'
+    ),
+    'initialise with a groups file'
+);
+ok($obj->add_labels, 'Add labels to groups');
+compare_ok($obj->output_filename, 't/data/expected_group_labels', 'groups labeled as expected');
+unlink('labelled_groups_file');
+
+done_testing();