samples: add Terra samples

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

samples/Terra/coverage3.t

@@ -0,0 +1,107 @@
+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"
+
+terra foo()
+end
+foo:compile()
+failit("inlining",function() foo:setinlined(false) end)
+
+terra bar
+failit("attempting to call",function()
+bar:compile() end)
+
+failit("expected a name",function()
+    terralib.intrinsic("far","far")
+end)
+
+print((&int)[4])
+
+struct A {
+    a : int[4];
+    b : ∫
+    union { c : int; d : int};
+    e : int -> int;
+}
+A:printpretty()
+
+terra rv() return vector(1,2,3) end
+
+terra varg(a : vector(int,3))
+
+    return a[0] + a[1] + a[2]
+end
+
+assert (6 == varg(rv()))
+
+local something = nil
+failit(erd,function()
+local terra a([something])
+end
+end)
+
+failit(erd,function()
+local terra what()
+    var a = A { ee = 4 }
+end
+what:compile()
+end)
+
+A.metamethods.__getmethod = function(self,methodname)
+    return 1
+end
+
+failit(erd,function()
+local terra what()
+    var a : A
+    A.something()
+end
+what:compile()
+end)
+
+C = terralib.includec("stdio.h")
+
+--TODO: __sputc isn't consistent across architectures, so this is a bad test
+--failit("cannot import",function()
+--local a = C.__sputc
+--end)
+
+failit("not found",function()
+local a = C.nothing
+end)
+
+terra up() return unpackstruct(3) end
+assert(3 == up())
+
+failit(erd,function()
+local terra aloads(a : &int)
+    return terralib.attrload(a),terralib.attrload(nil,{3}),terralib.attrstore(a,nil)
+end
+aloads:compile()
+end)
+
+terra f() end
+terra f(a:int) end
+failit("overloaded", function()
+terralib.saveobj("err.o", { f = f})
+end)
+
+terra nop() end
+terra nilcall(a : tuple(), b : int)
+    return b,a
+end
+terra nilstuff()
+    var a = nop()
+    var c,b = nilcall(a,4)
+    return c
+end
+assert(4 == nilstuff())
+
+nilcall:disas()