From 80aab32eda0748288e7530f8a011c093758a0322 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Sat, 25 Jan 2003 00:16:38 +0000
Subject: only do groups check on unix

---
 ChangeLog           |  4 ++++
 tests/unixFCmd.test | 12 +++++++-----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 11bcd16..34e9358 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-24  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tests/unixFCmd.test: only do groups check on unix
+
 2003-01-24  Vince Darley  <vincentdarley@users.sourceforge.net>
 
 	* generic/tclStringObj.c: proper fixes for Tcl_SetObjLength and 
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test
index c274322..ca707a4 100644
--- a/tests/unixFCmd.test
+++ b/tests/unixFCmd.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: unixFCmd.test,v 1.16 2002/08/08 10:41:22 hobbs Exp $
+# RCS: @(#) $Id: unixFCmd.test,v 1.17 2003/01/25 00:16:39 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -230,10 +230,12 @@ test unixFCmd-14.2 {GetPermissionsAttribute} {unixOnly notRoot} {
 # Find a group that exists on this system, or else skip tests that require
 # groups
 set ::tcltest::testConstraints(foundGroup) 0
-catch {
-    set groupList [exec groups]
-    set group [lindex $groupList 0]
-    set ::tcltest::testConstraints(foundGroup) 1
+if {$tcl_platform(platform) == "unix"} {
+    catch {
+	set groupList [exec groups]
+	set group [lindex $groupList 0]
+	set ::tcltest::testConstraints(foundGroup) 1
+    }
 }
 
 #groups hard to test
-- 
cgit v0.12