samples: add Terra samples

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

samples/Terra/testvector.t

@@ -0,0 +1,57 @@
+
+local S = require "std"
+
+local floatv = S.Vector(int)
+terra foo()
+    var a = floatv.salloc():init()
+    for i = 0,100 do
+        a:insert(i)
+    end
+    for i = 0,50 do
+        a:insert(0,i)
+    end
+    for i = 0,50 do
+        a:insert(1,2,i)
+    end
+    for i = 0ULL,a:size() do
+       a(i) = a(i) + 1
+    end
+    for i = 0ULL,50 do
+        @a:insert() = 5
+    end
+    var s = 0
+    for i = 0ULL,a:size() do
+        s = s + a(i)
+    end
+    var z = a:size()
+    S.assert(a:remove() == 5)
+    S.assert(a:size() == z - 1)
+    S.assert(a:remove(0) == 50)
+    S.assert(a:remove(0) == 50)
+    S.assert(a:remove(0) == 50)
+    S.assert(a(1) == 49)
+    return s
+end
+assert(foo() == 8875 + 5 *50)
+
+local g = global(int,0)
+
+struct A (S.Object) {
+    a : int
+}
+
+terra A:__destruct() 
+    g = g + self.a
+end
+
+assert(S.Vector(int) == S.Vector(int))
+
+terra foo2()
+    var a = [S.Vector(A)].salloc():init()
+    for i = 0,50 do
+        a:insert().a = i
+    end
+end
+
+foo2()
+assert(g:get() == 49*50/2)