226
227
228
229
230
231
232
|
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
if {!$apa} {
file delete .svn
}
set res
} -cleanup {
tcltest::removeFile {} _rev2_10
} -result {SVN}
test rev-2.11 {
Detecting, BZR
} -body {
set f [tcltest::makeFile {} _rev2_11]
set ::auto_execs(bzr) "x"
set apa [file isdirectory .bzr]
if {!$apa} {
file mkdir .bzr
}
set res [detectRevSystem $f]
if {!$apa} {
file delete .bzr
}
set res
} -cleanup {
tcltest::removeFile {} _rev2_11
} -result {BZR}
|