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 (executable)
--- 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 (executable)
--- 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`)));