| ︙ | | |
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
+
+
+
|
}
if {[lindex $args 1] eq "pwv"} {
return $::ct_pwv
}
if {[lindex $args 1] eq "ls"} {
return $::ct_ls
}
if {[lindex $args 1] eq "describe"} {
return $::ct_describe
}
return
}
cvs {
# cvs -z3 update -p ?-r rev? $filename > $outfile
return
}
co {
|
| ︙ | | |
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
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
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}
|
| ︙ | | |
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
-
+
|
set ::ct_ls @@/Apa/Bepa/12
eskil::rev::CT::ParseRevs filename ""
} -result {/Apa/Bepa/12}
test rev-1.7 {
ClearCase revisions
} -body {
set ::ct_ls @@/Apa/Bepa/7
set ::ct_describe /Apa/Bepa/11
eskil::rev::CT::ParseRevs filename -1
} -result {/Apa/Bepa/11}
test rev-1.8 {
ClearCase revisions
} -body {
set ::ct_ls @@/Apa/Bepa/7
|
| ︙ | | |
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
+
+
|
eskil::rev::CT::ParseRevs filename -5
} -result {/Apa/Cepa/0}
test rev-2.1 {
Detecting, CVS
} -body {
set f [tcltest::makeFile {} _rev2_1]
file mkdir CVS
detectRevSystem $f
} -cleanup {
tcltest::removeFile {} _rev2_1
} -result {CVS}
test rev-2.2 {
Detecting, CVS
} -body {
set ::auto_execs(cvs) ""
set f [tcltest::makeFile {} _rev2_2]
detectRevSystem $f
} -cleanup {
file delete -force CVS
tcltest::removeFile {} _rev2_2
} -result {}
test rev-2.3 {
Detecting, RCS
} -body {
set f [tcltest::makeFile {} _rev2_3]
|
| ︙ | | |
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
|
+
|
if {!$apa} {
file mkdir .git
}
set res [detectRevSystem $f]
if {!$apa} {
file delete .git
}
set ::auto_execs(git) ""
set res
} -cleanup {
tcltest::removeFile {} _rev2_8
} -result {GIT}
test rev-2.9 {
Detecting, HG
|
| ︙ | | |