Differences From Artifact [60bec0c69d]:

• File tests/fileSystem.test — part of check-in [d8a3450f12] at 2024-07-20 15:59:29 on branch unchained — Merge trunk [91c2f411e7e71552], TIP #636 (tip-636-tcl9-644), resolve all conflicts including those resulting from conflicting Tcl_Obj interface implementations, and relicense under GNU Affero General Public License. All tests pass. (user: pooryorick size: 36183) [more...]

To Artifact [29676d1282]:

• File tests/fileSystem.test — part of check-in [fa18b72730] at 2024-08-22 13:45:18 on branch unchained — Merge [f23178a1241a5c46]: Fix [dd54ac5323]: fileSystem.test: Set moreThanOneDrive constraint correctly. (user: pooryorick size: 36196) [more...]

72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

	set dir [pwd]
	try {
	    foreach vol [file volumes] {
		if {![catch {cd $vol}]} {
		    lappend drives $vol
		}
	    }
	    testConstraint moreThanOneDrive [llength $drives]
	} finally {
	    cd $dir
	}
    }
} ::tcl::test::fileSystem}

proc testPathEqual {one two} {

|

72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

	set dir [pwd]
	try {
	    foreach vol [file volumes] {
		if {![catch {cd $vol}]} {
		    lappend drives $vol
		}
	    }
	    testConstraint moreThanOneDrive [expr {[llength $drives] > 1}]
	} finally {
	    cd $dir
	}
    }
} ::tcl::test::fileSystem}

proc testPathEqual {one two} {