27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
# cvs -z3 update -p ?-r rev? $filename > $outfile
return
}
co {
# co -p$rev $filename > $outfile
return
}
default {
eval _stub_exec $args
}
}
}
test rev-1.1 {
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
# cvs -z3 update -p ?-r rev? $filename > $outfile
return
}
co {
# co -p$rev $filename > $outfile
return
}
svn {
switch -- [lindex $args 1] {
info {
return {
Last Changed Author: pspjuth
Last Changed Rev: 158
Last Changed Date: 2008-03-04 07:39:43 +0100
}
}
log {
return {
------------------------------------------
r122 | pspjuth | 2008-02-19 13:58:14 +0100
------------------------------------------
r117 | pspjuth | 2008-02-15 09:07:16 +0100
------------------------------------------
r115 | pspjuth | 2008-02-14 11:11:07 +0100
------------------------------------------
}
}
}
return
}
default {
eval _stub_exec $args
}
}
}
test rev-1.1 {
|
244
245
246
247
248
249
250
|
if {!$apa} {
file delete .bzr
}
set res
} -cleanup {
tcltest::removeFile {} _rev2_11
} -result {BZR}
|
>
>
>
>
>
>
>
>
>
>
>
>
|
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
|
if {!$apa} {
file delete .bzr
}
set res
} -cleanup {
tcltest::removeFile {} _rev2_11
} -result {BZR}
test rev-3.1 {
Subversion revisions
} -body {
eskil::rev::SVN::ParseRevs filename -1
} -result {157}
test rev-3.2 {
Subversion revisions
} -body {
eskil::rev::SVN::ParseRevs filename -2
} -result {115}
|