Moved lzlib to the libs directory (cleaner)

libs/lzlib/test_gzip.lua

@@ -0,0 +1,101 @@
+
+local gzip = require 'gzip'
+
+local function line(header, c)
+    header = header or ''
+    c = c or '-'
+    print(string.rep(string.sub(c, 1, 1), 78 - string.len(header))..header)
+end
+
+
+line(' gzip', '=')
+
+line(' gzip writing')
+local loops = 1000
+local testfile = "test.gz"
+
+local of = gzip.open(testfile, "wb9")
+
+if (not of) then
+    error("Failed to open file test.gz for writing")
+end
+
+for i = 1, loops do
+    of:write(i, "\n")
+end
+
+of:close()
+
+local i = 0
+for l in gzip.lines(testfile) do
+    i = i + 1
+    if (tostring(i) ~= l) then
+        error(tostring(i))
+    end
+end
+
+assert(i == loops)
+print('Ok.')
+line(' gzip reading')
+
+local inf = gzip.open(testfile)
+
+if (not inf) then
+    error("Failed to open file test.gz for reading")
+end
+
+for i = 1, loops do
+    if (tostring(i) ~= inf:read("*l")) then
+        error(tostring(i))
+    end
+end
+
+inf:close()
+
+print('Ok.')
+if false then
+	line(' compress seek')
+
+	of = gzip.open(testfile, "wb1")
+
+	if (not of) then
+		error("Failed to open file test.gz for writing")
+	end
+
+	assert(of:seek("cur", 5) == 5)
+	assert(of:seek("set", 10) == 10)
+
+	of:write("1")
+
+	of:close()
+
+	print('Ok.')
+
+	line(' uncompress seek')
+
+	inf = gzip.open(testfile)
+
+	if (not inf) then
+		error("Failed to open file test.gz for reading")
+	end
+
+	assert(inf:seek("set", 6) == 6)
+	assert(inf:seek("set", 4) == 4)
+	assert(inf:seek("cur", 1) == 5)
+	assert(inf:seek("cur", -1) == 4)
+	assert(inf:seek("cur", 1) == 5)
+	assert(inf:seek("set", 6) == 6)
+
+	inf:read(4)
+
+	assert(inf:read(1) == "1")
+
+	inf:close()
+
+	print('Ok.')
+
+end
+
+os.remove(testfile)
+
+line(' gzip', '=')