diff options
| author | vincentdarley <vincentdarley> | 2001-09-06 17:51:00 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2001-09-06 17:51:00 (GMT) |
| commit | 21bfd2e23db4c36f3bf8b253681b9c40c1947aca (patch) | |
| tree | 39b09d3009512cdbe8e554ff455a6e9cf1e8901f /generic/tclTest.c | |
| parent | b2eb53e7e42203f94e7f10658405a1ac3f4ad8db (diff) | |
| download | tcl-21bfd2e23db4c36f3bf8b253681b9c40c1947aca.zip tcl-21bfd2e23db4c36f3bf8b253681b9c40c1947aca.tar.gz tcl-21bfd2e23db4c36f3bf8b253681b9c40c1947aca.tar.bz2 | |
fs
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index af93ff6..396a321 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -13,7 +13,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.29 2001/09/04 18:06:34 vincentdarley Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.30 2001/09/06 17:51:00 vincentdarley Exp $ */ #define TCL_TEST @@ -328,7 +328,6 @@ static Tcl_FSCreateDirectoryProc TestReportCreateDirectory; static Tcl_FSCopyDirectoryProc TestReportCopyDirectory; static Tcl_FSRemoveDirectoryProc TestReportRemoveDirectory; static Tcl_FSLoadFileProc TestReportLoadFile; -static Tcl_FSUnloadFileProc TestReportUnloadFile; static Tcl_FSLinkProc TestReportLink; static Tcl_FSFileAttrStringsProc TestReportFileAttrStrings; static Tcl_FSFileAttrsGetProc TestReportFileAttrsGet; @@ -4091,7 +4090,7 @@ static int PretendTclpStat(path, buf) int ret; Tcl_Obj *pathPtr = Tcl_NewStringObj(path, -1); Tcl_IncrRefCount(pathPtr); - ret = Tcl_FSStat(pathPtr, buf); + ret = TclpObjStat(pathPtr, buf); Tcl_DecrRefCount(pathPtr); return ret; } @@ -4245,7 +4244,7 @@ static int PretendTclpAccess(path, mode) int ret; Tcl_Obj *pathPtr = Tcl_NewStringObj(path, -1); Tcl_IncrRefCount(pathPtr); - ret = Tcl_FSAccess(pathPtr, mode); + ret = TclpObjAccess(pathPtr, mode); Tcl_DecrRefCount(pathPtr); return ret; } @@ -4366,7 +4365,7 @@ PretendTclpOpenFileChannel(interp, fileName, modeString, permissions) Tcl_Channel ret; Tcl_Obj *pathPtr = Tcl_NewStringObj(fileName, -1); Tcl_IncrRefCount(pathPtr); - ret = Tcl_FSOpenFileChannel(interp, pathPtr, modeString, permissions); + ret = TclpOpenFileChannel(interp, pathPtr, modeString, permissions); Tcl_DecrRefCount(pathPtr); return ret; } @@ -5422,15 +5421,6 @@ TestReportLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, return Tcl_FSLoadFile(interp, TestReportGetNativePath(fileName), sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr, unloadProcPtr); } -static void -TestReportUnloadFile(clientData) - ClientData clientData; /* ClientData returned by a previous call - * to TclpLoadFile(). The clientData is - * a token that represents the loaded - * file. */ -{ - TestReport("unloadfile",NULL,NULL); -} static Tcl_Obj * TestReportLink(path, to) Tcl_Obj *path; /* Path of file to readlink or link */ |