perl 4.0.00: (no release announcement available)perl-4.0.00

So far, 4.0 is still a beta test version.  For the last production
version, look in pub/perl.3.0/kits@44.

1 files changed, 18 insertions, 0 deletions

diff --git a/t/op/groups.t b/t/op/groups.t
new file mode 100644
index 0000000000..73ec3a0d9a
--- /dev/null
+++ b/t/op/groups.t
@@ -0,0 +1,18 @@
+#!./perl
+
+if (! -x '/usr/ucb/groups') {
+    print "1..0\n";
+    exit 0;
+}
+
+print "1..1\n";
+
+for (split(' ', $()) {
+    next if $seen{$_}++;
+    push(@gr, (getgrgid($_))[0]); 
+} 
+$gr1 = join(' ',sort @gr);
+$gr2 = join(' ', sort split(' ',`groups`));
+#print "gr1 is <$gr1>\n";
+#print "gr2 is <$gr2>\n";
+print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";