1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
includecommon("automate_stdio.lua")
mtn_setup()
revs = {}
addfile("foo", "blah")
commit()
revs.base = base_revision()
for i = 1,4 do
revert_to(revs.base)
addfile(tostring(i), tostring(i))
commit()
revs[i] = base_revision()
end
table.sort(revs)
for _,x in ipairs(revs) do append("wanted_heads", x.."\n") end
canonicalize("wanted_heads")
check(mtn("automate", "heads", "testbranch"), 0, true, false)
canonicalize("stdout")
check(samefile("wanted_heads", "stdout"))
check(mtn("automate", "heads", "nosuchbranch"), 0, true, false)
writefile("empty")
check(samefile("empty", "stdout"))
-- In mtn 0.40 and earlier, this was broken, because automate stdio
-- did not re-read the workspace options for each command, so the
-- branch was null.
check(run_stdio("l5:headse", 0) == readfile("wanted_heads"))
-- end of file
|
