added some basic tests

2024-08-03 12:03:58 +03:00
parent 8713ffbd95
commit 38927a2169
8 changed files with 225 additions and 0 deletions
--- a/test/branchs.lorth
+++ b/test/branchs.lorth
@@ -0,0 +1,62 @@
+;;; test
+;;; (format nil "~{~a~%~}" '(1 2 3 4 5))
+
+34 36 +
+eş 70 = ise 1 dump
+yoksa eş 68 = ise
+   1 ise
+        2 dump
+   yoksa
+        3 dump
+   yap
+yoksa eş 69 = ise 4 dump
+yoksa 5 dump
+yap yap yap
+
+34 34 +
+eş 70 = ise 1 dump
+yoksa eş 68 = ise
+   1 ise
+        2 dump
+   yoksa
+        3 dump
+   yap
+yoksa eş 69 = ise 4 dump
+yoksa 5 dump
+yap yap yap
+
+34 34 +
+eş 70 = ise 1 dump
+yoksa eş 68 = ise
+   0 ise
+        2 dump
+   yoksa
+        3 dump
+   yap
+yoksa eş 69 = ise 4 dump
+yoksa 5 dump
+yap yap yap
+
+34 35 +
+eş 70 = ise 1 dump
+yoksa eş 68 = ise
+   1 ise
+        2 dump
+   yoksa
+        3 dump
+   yap
+yoksa eş 69 = ise 4 dump
+yoksa 5 dump
+yap yap yap
+
+34 420 +
+eş 70 = ise 1 dump
+yoksa eş 68 = ise
+   1 ise
+        2 dump
+   yoksa
+        3 dump
+   yap
+yoksa eş 69 = ise 4 dump
+yoksa 5 dump
+yap yap yap