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
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
-- This test ensures that 'monotone migrate' can take any old-format
-- database and bring it forward to the current time; it is basically a
-- compatibility test. We actually don't test against old-format
-- databases directly, because some old-format databases can't be read
-- at all by a modern monotone -- you have to do a dump/load first. So
-- instead we store pre-dumped old-format databases. So technically
-- we're not checking that 'db migrate' can handle things, we're just
-- checking that 'dump | load; db migrate' can handle things. But that
-- should be good enough.
-- This means that every time the database schema is changed, you need
-- to add a new piece to this test, for the new schema. The way you do
-- this is to run this test with the -d option, like so:
-- $ ./tester -d lua-testsuite.lua schema_migration
-- this will cause the tester program to leave behind the temporary files the
-- test generates. You want 'tester_dir/schema_migration/<something>.mtn.dumped'.
-- Copy that file to this directory, and add a line
-- check_migrate_from("<something>")
-- to the end of this file, with the <something> being the same <something>
-- that was in the filename (it's the schema id, if you were wondering).
----------------------------------------------------------------------------
---- Do not touch this code; you'll have to regenerate all the test
---- databases if you do!
----------------------------------------------------------------------------
mtn_setup()
writefile("blah_blah.txt", "blah-blah")
-- We don't want the standard db, we want full control ourselves
remove("test.db")
remove("keys")
check(mtn("db", "init"))
-- Put some random keys in, with and without corresponding private keys
check(get("migrate_keys", "stdin"))
check(mtn("read"), 0, false, false, true)
addfile("testfile1", "f1v1\n")
addfile("testfile2", "f2v1\n")
check(mtn("attr", "set", "testfile1", "testfile1_key", "initial_value"), 0, false, false)
check(mtn("attr", "set", ".", "dir_key", "initial_value"), 0, false, false)
check(mtn("commit", "--branch=testbranch1", "--date=1999-01-01T12:00:00", "--message-file=blah_blah.txt"), 0, false, false)
rev = base_revision()
check(mtn("cert", rev, "somekey", "somevalue"), 0, false, false)
writefile("testfile1", "f1v2\n")
addfile("testfile3", "f3v1\n")
check(mtn("attr", "drop", "testfile1", "testfile1_key"), 0, false, false)
check(mtn("attr", "set", ".", "dir_key", "new_value"), 0, false, false)
check(mtn("commit", "--branch=testbranch2", "--date=2000-01-01T12:00:00", "--message-file=blah_blah.txt"), 0, false, false)
revert_to(rev)
remove("testfile3")
writefile("testfile2", "f2v2\n")
addfile("testfile4", "f4v1\n")
check(mtn("commit", "--branch=testbranch1", "--date=2001-01-01T12:00:00", "--message-file=blah_blah.txt"), 0, false, false)
check(mtn("propagate", "--date=2002-01-01T12:00:00", "testbranch2", "testbranch1"), 0, false, false)
check(mtn("update"), 0, false, false)
check(mtn("drop", "--bookkeep-only", "testfile1"), 0, false, false)
writefile("testfile4", "f4v2\n")
check(mtn("commit", "--branch=testbranch3", "--date=2003-01-01T12:00:00", "--message-file=blah_blah.txt"), 0, false, false)
rename("test.db", "latest.mtn")
check(mtn("--db=latest.mtn", "db", "dump"), 0, true, false)
rename("stdout", "latest.mtn.dumped")
check(mtn("--db=latest.mtn", "db", "version"), 0, true, false)
local ver = string.gsub(readfile("stdout"), "^.*: ([0-9a-f]*).*$", "%1")
rename("latest.mtn.dumped", ver..".mtn.dumped")
----------------------------------------------------------------------------
---- End untouchable code
----------------------------------------------------------------------------
function check_migrate_from(id)
-- id.dumped is a 'db dump' of a db with schema "id"
get(id..".mtn.dumped", "stdin")
check(mtn("--db="..id..".mtn", "db", "load"), 0, false, false, true)
-- check that the version's correct
check(mtn("--db="..id..".mtn", "db", "version"), 0, true, false)
check(qgrep(id, "stdout"))
-- migrate it
check(mtn("--db="..id..".mtn", "db", "migrate"), 0, false, true)
-- then the migrate should not have warned us
check(string.find(readfile("stderr"), "regenerate_caches") == nil)
-- and normal commands on the db should work fine
check(mtn("--db="..id..".mtn", "ls", "keys"), 0, false, true)
check(not qgrep("regenerate_caches", "stderr"))
check_same_db_contents(id..".mtn", "latest.mtn")
end
check_migrate_from("1db80c7cee8fa966913db1a463ed50bf1b0e5b0e")
check_migrate_from("9d2b5d7b86df00c30ac34fe87a3c20f1195bb2df")
check_migrate_from("ae196843d368d042f475e3dadfed11e9d7f9f01e")
check_migrate_from("48fd5d84f1e5a949ca093e87e5ac558da6e5956d")
check_migrate_from("fe48b0804e0048b87b4cea51b3ab338ba187bdc2")
check_migrate_from("7ca81b45279403419581d7fde31ed888a80bd34e")
check_migrate_from("212dd25a23bfd7bfe030ab910e9d62aa66aa2955")
check_migrate_from("9c8d5a9ea8e29c69be6459300982a68321b0ec12")
check_migrate_from("1f60cec1b0f6c8c095dc6d0ffeff2bd0af971ce1")
check_migrate_from("c3a13c60edc432f9a7739f8a260565d77112c86e")
|
