mirror of
https://github.com/luau-lang/luau.git
synced 2024-11-15 22:35:43 +08:00
86 lines
1.4 KiB
Lua
86 lines
1.4 KiB
Lua
-- This file is part of the Luau programming language and is licensed under MIT License; see LICENSE.txt for details
|
|
print "testing debugger" -- note, this file can't run in isolation from C tests
|
|
|
|
local a = 5
|
|
|
|
function foo(b, ...)
|
|
print("in foo", b)
|
|
a = 6
|
|
end
|
|
|
|
breakpoint(8)
|
|
|
|
foo(50, 42)
|
|
|
|
breakpoint(16) -- next line
|
|
print("here")
|
|
|
|
function coro(arg)
|
|
print("before coro break")
|
|
a = arg
|
|
print("after coro break")
|
|
return 42
|
|
end
|
|
|
|
breakpoint(20) -- break inside coro()
|
|
|
|
a = 7
|
|
|
|
local co = coroutine.create(coro)
|
|
local _, res = coroutine.resume(co, 8) -- this breaks and resumes!
|
|
assert(res == 42)
|
|
|
|
local cof = coroutine.wrap(coro)
|
|
assert(cof(9) == 42) -- this breaks and resumes!
|
|
|
|
function corobad()
|
|
print("before coro break")
|
|
error("oops")
|
|
end
|
|
|
|
assert(a == 9)
|
|
|
|
breakpoint(38) -- break inside corobad()
|
|
|
|
local co = coroutine.create(corobad)
|
|
assert(coroutine.resume(co) == false) -- this breaks, resumes and dies!
|
|
|
|
function bar()
|
|
print("in bar")
|
|
end
|
|
|
|
breakpoint(49)
|
|
breakpoint(49, false) -- validate that disabling breakpoints works
|
|
|
|
bar()
|
|
|
|
local function breakpointSetFromMetamethod()
|
|
local a = setmetatable({}, {
|
|
__index = function()
|
|
breakpoint(67)
|
|
return 2
|
|
end
|
|
})
|
|
|
|
local b = a.x
|
|
|
|
assert(b == 2)
|
|
end
|
|
|
|
breakpointSetFromMetamethod()
|
|
|
|
-- break inside function with non-monotonic line info
|
|
local function cond(a)
|
|
if a then
|
|
print('a')
|
|
else
|
|
print('not a')
|
|
end
|
|
end
|
|
|
|
breakpoint(77)
|
|
|
|
pcall(cond, nil) -- prevent inlining
|
|
|
|
return 'OK'
|