blob: 30259c872ad0be88cf47d64f42cacddf23df55cf (
plain)
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
|
--[[--------------------------------------------------------------------
test_lzio.lua
Test for lzio.lua
This file is part of Yueliang.
Copyright (c) 2005-2006 Kein-Hong Man <khman@users.sf.net>
The COPYRIGHT file describes the conditions
under which this software may be distributed.
See the ChangeLog for more information.
----------------------------------------------------------------------]]
-- manual test for lzio.lua lua-style chunk reader
local zio_init = require("../lzio_mk2")
local z
function dump(z)
while true do
local c = z:getc()
io.stdout:write("("..c..")")
if c == "EOZ" then break end
end
io.stdout:write("\n")
end
-- z = zio_init("@<filename>") for a file
-- z = zio_init("<string>") for a string
-- [[
z = zio_init("hello, world!")
dump(z)
z = zio_init("line1\nline2\n")
dump(z)
z = zio_init("@test_lzio_mk2.lua")
dump(z)
--]]
-- test read beyond end of file
-- bug reported by Adam429
--[[
z = zio_init("@test_lzio_mk2.lua")
while true do
local c = z:getc()
io.stdout:write("("..c..")")
if c == "EOZ" then break end
end
print(z:getc())
print(z:getc())
io.stdout:write("\n")
--]]
|
