diff options
| author | hobbs <hobbs@noemail.net> | 2003-01-25 00:16:38 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2003-01-25 00:16:38 (GMT) |
| commit | f6ba75b8c0a965d25e6bb494ec58bb4f98d127e9 (patch) | |
| tree | c5a0cdc29c3ae0abcdc2d0294d3a7ca0be661cd7 /tests/unixFCmd.test | |
| parent | 817903763f375b727aa65081fab3cb79edb67c39 (diff) | |
| download | tcl-f6ba75b8c0a965d25e6bb494ec58bb4f98d127e9.zip tcl-f6ba75b8c0a965d25e6bb494ec58bb4f98d127e9.tar.gz tcl-f6ba75b8c0a965d25e6bb494ec58bb4f98d127e9.tar.bz2 | |
only do groups check on unix
FossilOrigin-Name: fdbd44d6777eedf406d8cc81fa67b7acc369898f
Diffstat (limited to 'tests/unixFCmd.test')
| -rw-r--r-- | tests/unixFCmd.test | 12 |
1 files changed, 7 insertions, 5 deletions
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 |