samples: add Terra samples

source: https://github.com/zdevito/terra/tree/master/tests

samples/Terra/coverage2.t

@@ -0,0 +1,209 @@
+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"
+
+failit(erd,function()
+local aglobal = 5
+local terra foo()
+	return [ (function() aglobal = 4; return 3 end)() ]
+end
+foo()
+end)
+
+A = terralib.types.newstruct()
+A.entries:insert{ field = "a", type = int[2] }
+
+A.metamethods.__getentries = function() error("NOPE") end
+
+failit(erd,function()
+	A:complete()
+end)
+local terra foo()
+	var a : int[2]
+	return 3
+end
+foo:compile()
+local a = 0
+foo:gettype(function()
+	a = a + 1
+end)
+assert(a == 1)
+
+local terra errored
+failit(erd,function()
+	terra errored()
+		return A
+	end
+	errored:compile()
+end)
+failit("referencing a function which failed to compile",function()
+	errored()
+end)
+
+local terra ol(a : int) return a end
+terra ol(a : int, b : int) return a + b end
+
+assert(ol(3) == 3)
+assert(ol(3,4) == 7)
+
+failit("bad argument #1",function()
+	ol("a")
+end)
+
+ol:printstats()
+NSE = terralib.types.newstruct()
+
+failit(erd,function()
+	NSE.entries:insert { field = "a", type = "b" }
+	NSE:complete()
+end)
+
+SICS = terralib.types.newstruct()
+SICS.entries:insert { field = symbol(), type = int }
+a = 1
+SICS.metamethods.__staticinitialize = function() a = a + 1 end
+print(terralib.new(SICS,{3}))
+
+NSF = terralib.types.newstruct()
+NSF.entries:insert { type = int , field = 3 }
+
+failit(erd,function()
+	NSF:complete()
+end)
+SICS:complete()
+assert(a == 2)
+struct SF {
+	a : SF2
+} and struct SF2 {
+	a : int
+}
+SF2.metamethods.__getentries = function(self) SF:complete() end
+failit(erd,function()
+SF:complete()
+end)
+failit("Attempting to get a property of a type that previously resulted in an error.",function()
+SF:complete()
+end)
+
+failit(erd,function()
+	struct SF { b : int }
+end)
+
+
+struct C {
+	a : int
+}
+
+C.metamethods.__cast = function() return error("CAST ERROR") end
+
+local terra casttest()
+	return int(C { 3 })
+end
+failit(erd,function()
+casttest()
+end)
+
+local terra shiftcheck()
+	var r = 1 << vector(1,2,3,4)
+	var r2 = vector(1,2,3,4) << 1
+	return r[0],r[1],r[2],r[3],r2[0],r2[1],r2[2],r2[3]
+end
+
+test.meq({2,4,8,16,2,4,6,8},shiftcheck())
+
+failit(erd,function()
+	local terra foo()
+		return terralib.select(3,4,5)
+	end
+	foo()
+end)
+failit(erd,function()
+	local terra foo()
+		return (4):foo()
+	end
+	foo()
+end)
+failit(erd,function()
+	local terra foo()
+		return (C {3}):foo()
+	end
+	foo()
+end)
+failit(erd,function()
+	local a = { a = 4}
+	local terra foo()
+		return a()
+	end
+	foo()
+end)
+local saveit
+local foom = macro(function(arg) saveit = arg; arg:astype();  end)
+failit(erd,function()
+	local terra foo()
+		return foom(4)
+	end
+	foo()
+end)
+
+failit(erd,function()
+	local terra foo()
+		return saveit
+	end
+	foo()
+end)
+failit(erd,function()
+	local struct A {
+		a : 3
+	}
+end)
+
+failit(erd,function()
+	local terra foo
+	local bar = macro(function() foo:compile() end)
+	terra foo()
+		return bar()
+	end
+	foo()
+end)
+
+struct ATF {
+	a : int
+}
+
+ATF.metamethods.__getentries = function(self) 
+	local terra foo()
+		var a : ATF
+		return a.a
+	end
+	foo:compile()
+end
+
+failit(erd,function()
+	ATF:complete()
+end)
+
+struct FA {
+	a : &FA2
+} and struct FA2 {
+	a : int
+}
+
+FA.metamethods.__staticinitialize = function() a = a + 1 end
+
+FA2.metamethods.__staticinitialize = function(self)
+	FA:complete()
+end
+
+FA:complete()
+
+assert(a == 3)
+--[[
+freezing asynchronus needs to be called
+]]