From 2570830850c6dadadc2c86bf9d6f3203c9aba488 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gustav=20S=C3=B6rn=C3=A4s?= <gustav@sornas.net>
Date: Fri, 5 Mar 2021 19:07:13 +0100
Subject: convert tests to files

---
 progs/bench/fib.sy      |  6 +++++-
 progs/bench/fib_iter.sy | 21 ++++++++++++---------
 progs/bench/sum.sy      | 13 ++++++++-----
 3 files changed, 25 insertions(+), 15 deletions(-)

(limited to 'progs/bench')

diff --git a/progs/bench/fib.sy b/progs/bench/fib.sy
index de68f5c..76c3af7 100644
--- a/progs/bench/fib.sy
+++ b/progs/bench/fib.sy
@@ -7,4 +7,8 @@ fib :: fn a:int -> int {
     ret fib(a - 1) + fib(a - 2)
 }
 // 23 is around where things start getting slow.
-fib(23) <=> 28657
+start :: fn {
+    //TODO pass arguments to skip debug printing. this test is very slow otherwise
+    <!>
+    // fib(23) <=> 28657
+}
diff --git a/progs/bench/fib_iter.sy b/progs/bench/fib_iter.sy
index c51469a..f82d6f8 100644
--- a/progs/bench/fib_iter.sy
+++ b/progs/bench/fib_iter.sy
@@ -1,14 +1,17 @@
 // A Fibonacci implementation that is a little
 // less awful. But we run it 1000 times instead.
-j := 0
-for , j < 1000, j = j + 1 {
-    a := 0
-    b := 1
+start :: fn {
+    <!>
+    j := 0
+    for , j < 1000, j = j + 1 {
+        a := 0
+        b := 1
 
-    for i := 0, i < 50, i = i + 1 {
-        c := a
-        a = b
-        b = c + b
+        for i := 0, i < 50, i = i + 1 {
+            c := a
+            a = b
+            b = c + b
+        }
+        a <=> 12586269025
     }
-    a <=> 12586269025
 }
diff --git a/progs/bench/sum.sy b/progs/bench/sum.sy
index bb6870f..39252cd 100644
--- a/progs/bench/sum.sy
+++ b/progs/bench/sum.sy
@@ -1,6 +1,9 @@
-// Adds the numbers 0 to 10000
-sum := 0
-for i := 0, i <= 100000, i += 1 {
-    sum += i
+// Adds the numbers 0 to 100000
+start :: fn {
+    <!>
+    sum := 0
+    for i := 0, i <= 100000, i += 1 {
+        sum += i
+    }
+    sum <=> 5000050000
 }
-sum <=> 5000050000
-- 
cgit v1.2.1


From b1fab16befb78232d7a913f58beef639c5891e26 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gustav=20S=C3=B6rn=C3=A4s?= <gustav@sornas.net>
Date: Fri, 5 Mar 2021 19:47:00 +0100
Subject: set no_print in tests

---
 progs/bench/fib.sy      | 6 +++---
 progs/bench/fib_iter.sy | 3 ++-
 progs/bench/sum.sy      | 3 ++-
 3 files changed, 7 insertions(+), 5 deletions(-)

(limited to 'progs/bench')

diff --git a/progs/bench/fib.sy b/progs/bench/fib.sy
index 76c3af7..ad10e20 100644
--- a/progs/bench/fib.sy
+++ b/progs/bench/fib.sy
@@ -8,7 +8,7 @@ fib :: fn a:int -> int {
 }
 // 23 is around where things start getting slow.
 start :: fn {
-    //TODO pass arguments to skip debug printing. this test is very slow otherwise
-    <!>
-    // fib(23) <=> 28657
+    fib(23) <=> 28657
 }
+
+// flags: no_print
diff --git a/progs/bench/fib_iter.sy b/progs/bench/fib_iter.sy
index f82d6f8..7ed1021 100644
--- a/progs/bench/fib_iter.sy
+++ b/progs/bench/fib_iter.sy
@@ -1,7 +1,6 @@
 // A Fibonacci implementation that is a little
 // less awful. But we run it 1000 times instead.
 start :: fn {
-    <!>
     j := 0
     for , j < 1000, j = j + 1 {
         a := 0
@@ -15,3 +14,5 @@ start :: fn {
         a <=> 12586269025
     }
 }
+
+// flags: no_print
diff --git a/progs/bench/sum.sy b/progs/bench/sum.sy
index 39252cd..76fe392 100644
--- a/progs/bench/sum.sy
+++ b/progs/bench/sum.sy
@@ -1,9 +1,10 @@
 // Adds the numbers 0 to 100000
 start :: fn {
-    <!>
     sum := 0
     for i := 0, i <= 100000, i += 1 {
         sum += i
     }
     sum <=> 5000050000
 }
+
+// flags: no_print
-- 
cgit v1.2.1