summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2003-01-25 00:16:38 (GMT)
committerhobbs <hobbs>2003-01-25 00:16:38 (GMT)
commit80aab32eda0748288e7530f8a011c093758a0322 (patch)
treec5a0cdc29c3ae0abcdc2d0294d3a7ca0be661cd7
parentcc621fa3eae47ef63da1c5439aa5ede1c3ea30e1 (diff)
downloadtcl-80aab32eda0748288e7530f8a011c093758a0322.zip
tcl-80aab32eda0748288e7530f8a011c093758a0322.tar.gz
tcl-80aab32eda0748288e7530f8a011c093758a0322.tar.bz2
only do groups check on unix
-rw-r--r--ChangeLog4
-rw-r--r--tests/unixFCmd.test12
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