From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 23 Sep 1998 07:09:50 +0000 (+0000)
Subject: U/WIN testsuite patches from Joe Buehler <jhpb@hekimian.com>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72720e3c89723833af2f8074486dfbeea0d9ac0d;p=p5sagit%2Fp5-mst-13.2.git

U/WIN testsuite patches from Joe Buehler <jhpb@hekimian.com>

p4raw-id: //depot/perl@1827
---

diff --git a/t/op/grent.t b/t/op/grent.t
index 3930653..a04b51b 100755
--- a/t/op/grent.t
+++ b/t/op/grent.t
@@ -29,6 +29,7 @@ while (<GR>) {
     @s = split /:/;
     if (@s == 4) {
 	my ($name_s,$passwd_s,$gid_s,$members_s) = @s;
+	$members_s =~ s/ /,/g;
 	@n = getgrgid($gid_s);
 	# 'nogroup' et al.
 	next unless @n;
diff --git a/t/op/groups.t b/t/op/groups.t
index 47aabe3..f6f5ba2 100755
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -27,7 +27,11 @@ for (split(' ', $()) {
     }
 } 
 
-$gr1 = join(' ', sort @gr);
+if ($^O eq "uwin") {
+	$gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr))));
+} else {
+	$gr1 = join(' ', sort @gr);
+}
 
 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',`$groups`)));