From 525a54fc5b5676a977de23e63a0307fa0c07fb2c Mon Sep 17 00:00:00 2001
From: Vasiliy Tereshkov <52492460+vtereshkov@users.noreply.github.com>
Date: Sat, 20 Jun 2020 15:42:50 +0300
Subject: [PATCH] Add a more realistic test for interfaces

---
 tests/interfaces2.um | 68 +++++++++++++++++++-------------------------
 1 file changed, 29 insertions(+), 39 deletions(-)

diff --git a/tests/interfaces2.um b/tests/interfaces2.um
index 756921cf4..eee799748 100644
--- a/tests/interfaces2.um
+++ b/tests/interfaces2.um
@@ -1,47 +1,37 @@
-fn intref(val: int): ^int {
-    p := new(int)
-    p^ = val
-    return p
-}
-
-fn (x: ^int) print() {printf("int: {d}\n", x^)}
-
-fn (x: ^[]int) print() {
-    printf("vec: [")
-    for i := 0; i < len(x^); i++ {
-        printf("{d} ", x[i])
-    } 
-    printf("]\n")
+fn sort(a: []interface{}, ordered: fn (x, y: interface{}): bool) {
+    for sorted := false; !sorted {
+        sorted = true
+        for i := 0; i < len(a) - 1; i++ {
+            if !ordered(a[i], a[i + 1]) {
+                buf := a[i]
+                a[i] = a[i + 1]
+                a[i + 1] = buf
+                sorted = false
+            }
+        }
+    }
 }
 
-type printable = interface {print()}
-
-fn printany(x: interface{}) {
-    if p := ^int(x); p != null {
-        printf("{d}\n",   p^)
-    } else if p := ^real(x); p != null {
-        printf("{.3f}\n", p^)
-    } else if p := ^str(x);  p != null {
-        printf("{s}\n",   p^)
-    }
+fn ordered(x, y: interface{}): bool {
+    p := ^str(x)
+    q := ^str(y)
+    if p == null || q == null {error("Illegal type")}
+    return p^ < q^            
 }
 
 fn main() {
-    var b: []int = [3]int {7, 8, 9}    
-    var d: []printable    
-    {
-       d = [2]printable {intref(5), b}
-    }    
-    for i := 0; i < len(d); i++ {d[i].print()}
-
-    p := ^[]int(d[1])
-    if p != null {p.print()}
+    a := [10]str{"red", "green", "blue", "yellow", "gray", "brown", "black", "cyan", "magenta", "white"}
     
-    u := 17
-    v := 18.3
-    var s: str = "Hello!"
+    b := make([]interface{}, len(a))
+    for i := 0; i < len(b); i++ {
+        b[i] = &a[i]
+    }
+
+    sort(b, ordered)
     
-    printany(&u)
-    printany(&v)
-    printany(s)
+    for i := 0; i < len(b); i++ {        
+        if p := ^str(b[i]); p != null {
+            printf("{s}\n", p^)
+        }
+    }    
 }
\ No newline at end of file