summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c13
1 files changed, 3 insertions, 10 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index b0380f6..93e124f 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.79 2004/03/08 16:34:23 dgp Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.80 2004/03/17 18:14:14 das Exp $
*/
#define TCL_TEST
@@ -3729,13 +3729,11 @@ TestsetplatformCmd(clientData, interp, argc, argv)
length = strlen(argv[1]);
if (strncmp(argv[1], "unix", length) == 0) {
*platform = TCL_PLATFORM_UNIX;
- } else if (strncmp(argv[1], "mac", length) == 0) {
- *platform = TCL_PLATFORM_MAC;
} else if (strncmp(argv[1], "windows", length) == 0) {
*platform = TCL_PLATFORM_WINDOWS;
} else {
Tcl_AppendResult(interp, "unsupported platform: should be one of ",
- "unix, mac, or windows", (char *) NULL);
+ "unix, or windows", (char *) NULL);
return TCL_ERROR;
}
return TCL_OK;
@@ -4043,7 +4041,7 @@ TestpanicCmd(dummy, interp, argc, argv)
* TestchmodCmd --
*
* Implements the "testchmod" cmd. Used when testing "file"
- * command. The only attribute used by the Mac and Windows platforms
+ * command. The only attribute used by the Windows platform
* is the user write flag; if this is not set, the file is
* made read-only. Otehrwise, the file is made read-write.
*
@@ -4810,11 +4808,6 @@ static int PretendTclpStat(path, buf)
#endif /* TCL_WIDE_INT_IS_LONG */
}
-/* Be careful in the compares in these tests, since the Macintosh puts a
- * leading : in the beginning of non-absolute paths before passing them
- * into the file command procedures.
- */
-
static int
TestStatProc1(path, buf)
CONST char *path;