Eskil

Differences From Artifact [edbf8a1b2f]:

• File tests/dir.test — part of check-in [77aa9a507d] at 2005-02-20 16:03:46 on branch trunk — CompareFiles was renamed. (user: peter size: 3901)

To Artifact [bfce0a0227]:

• File tests/dir.test — part of check-in [a0f5e3bef4] at 2007-02-17 04:31:48 on branch trunk — Dir compare always yield equal now. (user: peter size: 3901)

129
130
131
132
133
134
135
136
137
138
139
140
141
142
143

    file mkdir _d2_
    touch _d2_/_f2_

    set res [CompareFiles _f1_ _d1_]
    append res [CompareFiles _d1_ _d2_]
} -cleanup {
    file delete -force _f1_ _d1_ _d2_
} -result {00}

test dir-6.1 {
    CompareFiles, binary
} -body {
    set ::Pref(comparelevel) 1b
    set res [testCompareFiles "short" "longer"]
} -cleanup {

|

129
130
131
132
133
134
135
136
137
138
139
140
141
142
143

    file mkdir _d2_
    touch _d2_/_f2_

    set res [CompareFiles _f1_ _d1_]
    append res [CompareFiles _d1_ _d2_]
} -cleanup {
    file delete -force _f1_ _d1_ _d2_
} -result {01}

test dir-6.1 {
    CompareFiles, binary
} -body {
    set ::Pref(comparelevel) 1b
    set res [testCompareFiles "short" "longer"]
} -cleanup {