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
|
check(getstd("test_keys"))
check(getstd("test_hooks.lua"))
check(mtn("read", "test_keys"), 0, false, false)
remove("test_keys")
check(get("rcfile.lua"))
mkdir("managed_databases")
function mt(...)
return mtn("--rcfile", "rcfile.lua", ...)
end
check(mt("ls", "dbs"), 0, true, false)
check(samelines("stdout", {}))
writefile("managed_databases/foo")
check(mt("ls", "dbs"), 0, true, false)
check(samelines("stdout", {}))
writefile("managed_databases/foo.mtn")
check(mt("ls", "dbs"), 0, true, false)
check(samelines("stdout", {}))
check(mt("db", "init", "-d", ":bar"), 0, false, false)
check(exists("managed_databases/bar.mtn"))
check(mt("ls", "dbs"), 0, true, false)
check(qgrep(":bar.mtn.+in.+list_databases/managed_databases", "stdout"))
check(qgrep("\tno known valid workspaces", "stdout"))
check(mt("setup", "-d", ":bar", "-b", "test.foo.branch", "test_foo"), 0, false, false)
check(mt("ls", "dbs"), 0, true, false)
check(not qgrep("\tno known valid workspaces", "stdout"))
check(qgrep("\ttest.foo.branch.+in.+list_databases/test_foo", "stdout"))
check(rename("managed_databases/bar.mtn", "managed_databases/bar.db"))
check(mt("ls", "dbs"), 0, true, false)
check(qgrep(":bar.db.+in.+list_databases/managed_databases", "stdout"))
|
