Adding yksom's lang_tests

IntegrationTests/Tests/arbint_double_div_err.som

@@ -0,0 +1,13 @@
+"
+VM:
+  status: error
+  stderr:
+    ...
+    Expected a numeric type but got type 'String_'.
+"
+
+arbint_double_div_err = (
+    run = (
+        (1 << 200) // 'a'
+    )
+)

IntegrationTests/Tests/arbint_double_div_zero_err.som

@@ -0,0 +1,11 @@
+"
+VM:
+  status: error
+  stderr:
+    ...
+    Division by zero.
+"
+
+arbint_double_div_zero_err = (
+    run = ( (1 << 200) // 0 )
+)

IntegrationTests/Tests/arbint_modulus_err.som

@@ -0,0 +1,13 @@
+"
+VM:
+  status: error
+  stderr:
+    ...
+    Expected a numeric type but got type 'String_'.
+"
+
+arbint_modulus_err = (
+    run = (
+        (1 << 200) % 'a'
+    )
+)

IntegrationTests/Tests/array_at_idx0_err.som

@@ -0,0 +1,17 @@
+"
+VM:
+  status: error
+  stderr:
+    Traceback...
+    ...
+    Index 0 not valid for array of length 0.
+"
+
+array_at_idx0_err = (
+    run = (
+        | x |
+
+        x := Array new.
+        x at: 0.
+    )
+)

IntegrationTests/Tests/array_at_idx2_err.som

@@ -0,0 +1,17 @@
+"
+VM:
+  status: error
+  stderr:
+    Traceback...
+    ...
+    Index 2 not valid for array of length 1.
+"
+
+array_at_idx2_err = (
+    run = (
+        | x |
+
+        x := Array new: 1.
+        x at: 2.
+    )
+)

IntegrationTests/Tests/array_at_idx_err.som

@@ -0,0 +1,17 @@
+"
+VM:
+  status: error
+  stderr:
+    Traceback...
+    ...
+    Index 1 not valid for array of length 0.
+"
+
+array_at_idx_err = (
+    run = (
+        | x |
+
+        x := Array new.
+        x at: 1.
+    )
+)

IntegrationTests/Tests/array_at_negative_idx_err.som

@@ -0,0 +1,17 @@
+"
+VM:
+  status: error
+  stderr:
+    Traceback...
+    ...
+    Can't represent as unsigned machine integer.
+"
+
+array_at_negative_idx_err = (
+    run = (
+        | x |
+
+        x := Array new.
+        x at: -1.
+    )
+)

IntegrationTests/Tests/array_at_put_idx.err

@@ -0,0 +1,17 @@
+"
+VM:
+  status: error
+  stderr:
+    Traceback...
+    ...
+    Index 1 not valid for array of length 0.
+"
+
+array_at_put_idx_err = (
+    run = (
+        | x |
+
+        x := Array new.
+        x at: 1 put: 'a'.
+    )
+)

IntegrationTests/Tests/array_at_put_idx0_err.som

@@ -0,0 +1,17 @@
+"
+VM:
+  status: error
+  stderr:
+    Traceback...
+    ...
+    Index 0 not valid for array of length 0.
+"
+
+array_at_put_idx0_err = (
+    run = (
+        | x |
+
+        x := Array new.
+        x at: 0 put: 'a'.
+    )
+)

IntegrationTests/Tests/array_at_put_idx2_err.som

@@ -0,0 +1,17 @@
+"
+VM:
+  status: error
+  stderr:
+    Traceback...
+    ...
+    Index 2 not valid for array of length 1.
+"
+
+array_at_put_idx2_err = (
+    run = (
+        | x |
+
+        x := Array new: 1.
+        x at: 2 put: 'a'.
+    )
+)

IntegrationTests/Tests/array_literals.som

@@ -0,0 +1,23 @@
+"
+VM:
+  status: success
+  stdout:
+    4
+    5
+    6
+    a
+    -7
+    -8.0
+    instance of Array
+    #b
+    instance of Array
+"
+
+array_literals = (
+    run = (
+        | x |
+
+        x := #(4 5 6 'a' -7 -8.0 #(9.0 #a) #b #()).
+        x doIndexes: [:y | (x at: y) println].
+    )
+)

IntegrationTests/Tests/basic_arrays.som

@@ -0,0 +1,34 @@
+"
+VM:
+  status: success
+  stdout:
+    0
+    1
+    nil
+    instance of Array
+    #a
+    1
+    2
+    3
+    4
+    5
+"
+
+basic_arrays = (
+    run = (
+        | x |
+
+        x := Array new.
+        x length println.
+
+        x := Array new: 1.
+        x length println.
+        (x at: 1) println.
+        (x at: 1 put: #a) println.
+        (x at: 1) println.
+
+        x := Array new: 5.
+        x doIndexes: [:y | x at: y put: y].
+        x doIndexes: [:y | (x at: y) println].
+    )
+)

IntegrationTests/Tests/binary_super.som

@@ -0,0 +1,11 @@
+"
+VM:
+  status: error
+  stdout: ERROR: Method + not found in class binary_super
+"
+
+binary_super = (
+    run = (
+        super + 1.
+    )
+)

IntegrationTests/Tests/binary_super/superc.som

@@ -0,0 +1,5 @@
+superc = (
+    + i = (
+        ^ 1 + i 
+    )
+)

IntegrationTests/Tests/binary_super/test.som

@@ -0,0 +1,15 @@
+"
+VM:
+  status: success
+  stdout: 2
+"
+
+test = superc (
+    run = (
+        (super + 1) println.
+    )
+
+    + i = (
+        ^ 0 + i
+    )
+)

IntegrationTests/Tests/block_1.som

@@ -0,0 +1,9 @@
+"
+VM:
+  stdout:
+    Hello world
+"
+
+block_1 = (
+    run = ( [ 'Hello world' ] value println )
+)

IntegrationTests/Tests/block_10.som

@@ -0,0 +1,18 @@
+"
+VM:
+  stdout:
+    7
+"
+
+block_10 = (
+    f = (
+        self g: [ :x :y | ^ (x - y) ].
+        ^'b'
+    )
+
+    g: block = ( ^block value: 10 with: 3 )
+
+    run = (
+        self f println
+    )
+)

IntegrationTests/Tests/block_11.som

@@ -0,0 +1,27 @@
+"
+VM:
+  stdout:
+    3
+    3
+"
+
+block_11 = (
+    f = (
+        | x y |
+        x := 1.
+        y := [
+            x := 2.
+            [
+                x println.
+                ^ x
+            ]
+        ] value.
+        x := 3.
+        y value.
+        'unreachable' println.
+    )
+
+    run = (
+        self f println.
+    )
+)

IntegrationTests/Tests/block_12.som

@@ -0,0 +1,32 @@
+"
+VM:
+  stdout:
+    false 0
+    instance of block_12
+"
+
+block_12 = (
+    | i |
+    r: b = (
+        | x |
+        x := i.
+        b ifTrue: [
+            [
+                'true ' print.
+                x println.
+                ^b
+            ]
+          ]
+          ifFalse: [
+            'false ' print.
+            x println.
+            x := 1.
+            (self r: true) value
+        ].
+    )
+
+    run = (
+        i := 0.
+        (self r: false) println.
+    )
+)

IntegrationTests/Tests/block_2.som

@@ -0,0 +1,12 @@
+"
+VM:
+  stdout:
+    Hello world
+"
+
+block_2 = (
+    f = (
+        ^([ 'Hello world' ] value)
+    )
+    run = ( self f println )
+)

IntegrationTests/Tests/block_3.som

@@ -0,0 +1,10 @@
+"
+VM:
+  stdout:
+    Hello world
+"
+
+block_3 = (
+    f = ( ^[ 'Hello world' ] )
+    run = ( self f value println )
+)

IntegrationTests/Tests/block_4.som

@@ -0,0 +1,15 @@
+"
+VM:
+  stdout:
+    woo
+"
+
+block_4 = (
+    run = (
+       |x y|
+       x := 'Hello world'.
+       [ x := 'woo'] value.
+       y := [ x ].
+       y value println.
+    )
+)