From 38927a2169b9a99b0936122121ba849e109248df Mon Sep 17 00:00:00 2001 From: mRnea Date: Sat, 3 Aug 2024 12:03:58 +0300 Subject: added some basic tests --- test/branchs.lorth | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100644 test/branchs.lorth (limited to 'test/branchs.lorth') diff --git a/test/branchs.lorth b/test/branchs.lorth new file mode 100644 index 0000000..41eaf96 --- /dev/null +++ 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 \ No newline at end of file -- cgit v1.2.3