59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
}
default {
eval _stub_exec $args
}
}
}
# Do not detect git
set ::auto_execs(git) ""
test rev-1.1 {
ClearCase revisions
} -body {
set ::ct_ls @@/Bepa/5
eskil::rev::CT::ParseRevs filename 2
} -result {/Bepa/2}
|
|
>
|
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
}
default {
eval _stub_exec $args
}
}
}
# Do not detect git or fossil
set ::auto_execs(git) ""
set ::auto_execs(fossil) ""
test rev-1.1 {
ClearCase revisions
} -body {
set ::ct_ls @@/Bepa/5
eskil::rev::CT::ParseRevs filename 2
} -result {/Bepa/2}
|
290
291
292
293
294
295
296
297
298
299
300
301
302
303
|
if {!$apa} {
file mkdir _FOSSIL_
}
set res [detectRevSystem $f]
if {!$apa} {
file delete _FOSSIL_
}
set res
} -cleanup {
tcltest::removeFile {} _rev2_12
} -result {FOSSIL}
test rev-3.1 {
Subversion revisions
|
>
|
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
|
if {!$apa} {
file mkdir _FOSSIL_
}
set res [detectRevSystem $f]
if {!$apa} {
file delete _FOSSIL_
}
set ::auto_execs(fossil) ""
set res
} -cleanup {
tcltest::removeFile {} _rev2_12
} -result {FOSSIL}
test rev-3.1 {
Subversion revisions
|