more extensive testing for Users probe with external placeholder binaries

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

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