add a little test runnerHEADmain

1 files changed, 23 insertions, 0 deletions

diff --git a/tests/fibonacci.hgn b/tests/fibonacci.hgn
new file mode 100644
index 0000000..f2ea776
--- /dev/null
+++ b/tests/fibonacci.hgn
@@ -0,0 +1,23 @@
+main := proc() {
+    n := read_int(0)
+    fib(n)
+    exit(0)
+}
+
+fib := proc(n) {
+    a := 0
+    b := 1
+    i := 0
+    while i < n {
+        c := a + b
+        a = b
+        b = c
+        i = i + 1
+    }
+    p(a)
+}
+
+p := proc(x) {
+    x2 := x
+    print(x2)
+}