summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c12
1 files changed, 9 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 5aeff82..128b390 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.47 2002/03/07 20:17:22 dgp Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.48 2002/03/24 11:41:50 vincentdarley Exp $
*/
#define TCL_TEST
@@ -409,10 +409,10 @@ static Tcl_Filesystem testReportingFilesystem = {
&TestReportCreateDirectory,
&TestReportRemoveDirectory,
&TestReportDeleteFile,
- &TestReportLstat,
&TestReportCopyFile,
&TestReportRenameFile,
&TestReportCopyDirectory,
+ &TestReportLstat,
&TestReportLoadFile,
NULL /* cwd */,
&TestReportChdir
@@ -5658,10 +5658,15 @@ TestReport(cmd, path, arg2)
if (interp == NULL) {
/* This is bad, but not much we can do about it */
} else {
+ /*
+ * No idea why I decided to program this up using the
+ * old string-based API, but there you go. We should
+ * convert it to objects.
+ */
Tcl_SavedResult savedResult;
Tcl_DString ds;
Tcl_DStringInit(&ds);
- Tcl_DStringAppend(&ds, "puts stderr ",-1);
+ Tcl_DStringAppend(&ds, "lappend filesystemReport ",-1);
Tcl_DStringStartSublist(&ds);
Tcl_DStringAppendElement(&ds, cmd);
if (path != NULL) {
@@ -5677,6 +5682,7 @@ TestReport(cmd, path, arg2)
Tcl_RestoreResult(interp, &savedResult);
}
}
+
static int
TestReportStat(path, buf)
Tcl_Obj *path; /* Path of file to stat (in current CP). */