Attachment "486572.diff" to
ticket [486572ffff]
added by
andreas_kupries
2001-12-07 04:53:22.
? LOG
? Makefile
? LOG.2
? config.status
? config.cache
? config.log
? modules/fileinput
? modules/ftp/example
? modules/ftpd/examples
Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/ChangeLog,v
retrieving revision 1.90
diff -u -w -r1.90 ChangeLog
--- ChangeLog 2001/11/28 14:21:34 1.90
+++ ChangeLog 2001/12/06 21:52:37
@@ -1,3 +1,7 @@
+2001-12-06 Andreas Kupries <[email protected]>
+
+ * fileutil: Bugfix for item #486572.
+
2001-11-28 Reinhard Max <[email protected]>
* split.tcl: Speed improvement.
Index: modules/fileutil/ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/fileutil/ChangeLog,v
retrieving revision 1.8
diff -u -w -r1.8 ChangeLog
--- modules/fileutil/ChangeLog 2001/11/08 06:26:41 1.8
+++ modules/fileutil/ChangeLog 2001/12/06 21:52:37
@@ -1,3 +1,9 @@
+2001-12-06 Andreas Kupries <[email protected]>
+
+ * fileutil.test: Restricted tests 2.2 and 2.3 to the directory
+ structure created for the test and not the whole directory the
+ test is run in. Bugfix for item #486572.
+
2001-11-06 Andreas Kupries <[email protected]>
* fileutil.test:
Index: modules/fileutil/fileutil.test
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/fileutil/fileutil.test,v
retrieving revision 1.6
diff -u -w -r1.6 fileutil.test
--- modules/fileutil/fileutil.test 2001/11/08 06:26:41 1.6
+++ modules/fileutil/fileutil.test 2001/12/06 21:52:38
@@ -88,12 +88,12 @@
} {wrong#args for "::fileutil::findByPattern", should be "::fileutil::findByPattern basedir ?-regexp|-glob? ?--? patterns"}
test find-2.2 {find by pattern} {
- lsort [::fileutil::findByPattern $dir -glob {fil*}]
+ lsort [::fileutil::findByPattern [file join $dir find1] -glob {fil*}]
} [list [file join $dir find1 file1] [file join $dir find1 find2 file2]]
test find-2.3 {find by pattern} {
- lsort [::fileutil::findByPattern $dir -regexp {.*1$}]
-} [list [file join $dir find1] [file join $dir find1 file1]]
+ lsort [::fileutil::findByPattern [file join $dir find1] -regexp {.*1$}]
+} [list [file join $dir find1 file1]]
catch {removeDirectory grepTest} ; # start with a clean structure!
