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
|
Author: Enrico Tassi <gareuselesinge@debian.org>
Description: test file to be run after compilation
--- /dev/null
+++ lua-svn-0.4.0/test.lua
@@ -0,0 +1,45 @@
+svn = require "svn"
+
+repo_path = "test_repo"
+repo_url = "file://"..os.getenv("PWD").."/test_repo"
+test_path = "test"
+file_name = "test.file"
+dir_name = "trunk"
+
+dir = test_path.."/"..dir_name
+file = dir .. "/" .. file_name
+contents = { "content1", "content2" }
+rev2content = {}
+
+svn.repos_create(repo_path)
+assert(svn.checkout(repo_url, test_path), "unable to checkout")
+svn.mkdir(dir)
+f = io.open(file,"w")
+f:write(contents[1])
+f:close()
+svn.add(file)
+t = svn.status(file)
+assert(string.sub(t[file],1,1) == "A", "file not correctly added: "..t[file])
+r1 = svn.commit(test_path)
+rev2content[r1] = contents[1]
+f = io.open(file,"w")
+f:write(contents[2])
+f:close()
+t = svn.status(file)
+assert(string.sub(t[file],1,1) == "M", "file not listed as modified")
+r2 = svn.commit(file)
+rev2content[r2]=contents[2]
+t = svn.list(repo_url)
+for k in pairs(t) do
+ print(k)
+end
+h = svn.log (file)
+for rev, v in pairs(h) do
+ assert(svn.cat(file, rev) == rev2content[rev])
+ print(rev)
+ for k,v in pairs(v) do
+ print(k,v)
+ end
+end
+svn.cleanup(test_path)
+svn.repos_delete(repo_path)
|
