release 0.1.0

modules/core/tests/loop.owa

@@ -0,0 +1,42 @@
+(namespace tests.loop
+  (test.case "while.basic-true"
+    (def counter 0)
+    (while (eq? counter 0)
+      (set! counter 1))
+    (assert.eq! counter 1)
+  )
+
+  (test.case "while.condition-false"
+    (def counter 5)
+    (while (lt? counter 0)
+      (set! counter (+ counter 1)))
+    (assert.eq! counter 5)
+  )
+
+  (test.case "while.counting-loop"
+    (def n 0)
+    (while (lt? n 10)
+      (set! n (+ n 1)))
+    (assert.eq! n 10)
+  )
+
+  (test.case "while.loop-condition-reached"
+    (def i 0)
+    (while (lt? i 5)
+      (set! i (+ i 1)))
+    (assert.eq! i 5)
+  )
+
+  (test.case "while.nested"
+    (def outer 0)
+    (def inner 0)
+    (def total 0)
+    (while (lt? outer 3)
+      (set! inner 0)
+      (while (lt? inner 2)
+        (set! total (+ total 1))
+        (set! inner (+ inner 1)))
+      (set! outer (+ outer 1)))
+    (assert.eq! total 6)
+  )
+)