mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
48 lines
689 B
Perl
48 lines
689 B
Perl
function failit(match,fn)
|
|
local success,msg = pcall(fn)
|
|
if success then
|
|
error("failed to fail.",2)
|
|
elseif not string.match(msg,match) then
|
|
error("failed wrong: "..msg,2)
|
|
end
|
|
end
|
|
local test = require("test")
|
|
local erd = "Errors reported during"
|
|
|
|
local terra f1()
|
|
return test
|
|
end
|
|
|
|
failit(erd,function()
|
|
f1:compile()
|
|
end)
|
|
failit("referencing a function which failed to compile",function()
|
|
f1:compile()
|
|
end)
|
|
failit(erd,function()
|
|
local terra foo()
|
|
f1()
|
|
end
|
|
foo()
|
|
end)
|
|
|
|
|
|
local struct A {
|
|
a : int
|
|
}
|
|
|
|
A.metamethods.__getentries = function(self)
|
|
error("I AM BAD")
|
|
end
|
|
|
|
failit(erd,function()
|
|
A:complete()
|
|
end)
|
|
|
|
failit(erd,function()
|
|
local terra foo()
|
|
var a : A
|
|
end
|
|
foo()
|
|
end)
|