cope with optional user prefix to groups list

[scpubgit/System-Introspector.git] / t / bin / groups

diff --git a/t/bin/groups b/t/bin/groups
index 432a363..db8a7ab 100755 (executable)
--- a/t/bin/groups
+++ b/t/bin/groups
@@ -1,4 +1,4 @@
 #!/usr/bin/env perl
 use strictures 1;
 my $user = shift @ARGV;
-printf "%s\n", join ' ', map { "${user}_group_${_}" } qw( A B C );
+printf "$user : %s\n", join ' ', map { "${user}_group_${_}" } qw( A B C );