mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
17 lines
219 B
Perl
17 lines
219 B
Perl
|
|
|
|
terra haserror()
|
|
return (1):foo()
|
|
end
|
|
|
|
local m = macro(function()
|
|
local success = pcall(function() haserror:compile() end)
|
|
assert(not success)
|
|
return 1
|
|
end)
|
|
|
|
terra noerror()
|
|
return m()
|
|
end
|
|
|
|
assert(1 == noerror()) |