ilusha/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2026-09-29 04:35:58 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

Lua 5.3.5 ported to git

Browse source 
This is the first commit for the branch Lua 5.3. All source files
were copied from the official distribution of 5.3.5 in the Lua site.
The test files are the same of 5.3.4. The manual came from the
previous RCS repository, revision 1.167.1.2.
This commit is contained in:
Roberto Ierusalimschy 2018-12-17 14:46:37 -02:00
parent e354c6355e
commit 063d4e4543
99 changed files with 21665 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

72
testes/heavy.lua Normal file
View file

@ -0,0 +1,72 @@
-- $Id: heavy.lua,v 1.4 2016/11/07 13:11:28 roberto Exp $
-- See Copyright Notice in file all.lua
print("creating a string too long")
do
local st, msg = pcall(function ()
local a = "x"
while true do
a = a .. a.. a.. a.. a.. a.. a.. a.. a.. a
.. a .. a.. a.. a.. a.. a.. a.. a.. a.. a
.. a .. a.. a.. a.. a.. a.. a.. a.. a.. a
.. a .. a.. a.. a.. a.. a.. a.. a.. a.. a
.. a .. a.. a.. a.. a.. a.. a.. a.. a.. a
.. a .. a.. a.. a.. a.. a.. a.. a.. a.. a
.. a .. a.. a.. a.. a.. a.. a.. a.. a.. a
.. a .. a.. a.. a.. a.. a.. a.. a.. a.. a
.. a .. a.. a.. a.. a.. a.. a.. a.. a.. a
.. a .. a.. a.. a.. a.. a.. a.. a.. a.. a
print(string.format("string with %d bytes", #a))
end
end)
assert(not st and
(string.find(msg, "string length overflow") or
string.find(msg, "not enough memory")))
end
print('+')
local function loadrep (x, what)
local p = 1<<20
local s = string.rep(x, p)
local count = 0
local function f()
count = count + p
if count % (0x80*p) == 0 then
io.stderr:write("(", string.format("0x%x", count), ")")
end
return s
end
local st, msg = load(f, "=big")
print(string.format("\ntotal: 0x%x %s", count, what))
return st, msg
end
print("loading chunk with too many lines")
do
local st, msg = loadrep("\n", "lines")
assert(not st and string.find(msg, "too many lines"))
end
print('+')
print("loading chunk with huge identifier")
do
local st, msg = loadrep("a", "chars")
assert(not st and
(string.find(msg, "lexical element too long") or
string.find(msg, "not enough memory")))
end
print('+')
print("loading chunk with too many instructions")
do
local st, msg = loadrep("a = 10; ", "instructions")
print(st, msg)
end
print('+')
print "OK"