From e90d1248920b50e5f8c25ab406a9095e3f6a2358 Mon Sep 17 00:00:00 2001 From: mRnea Date: Fri, 16 Aug 2024 10:09:45 +0300 Subject: changed project name from cl-forth to kurt --- test/arith.kurt | 3 +++ test/arith.lorth | 3 --- test/bits.kurt | 15 +++++++++++++ test/bits.lorth | 15 ------------- test/branchs.kurt | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ test/branchs.lorth | 62 ------------------------------------------------------ test/include.kurt | 3 +++ test/loop.kurt | 6 ++++++ test/loop.lorth | 6 ------ test/makro.kurt | 6 ++++++ test/makro.lorth | 6 ------ test/stack.kurt | 5 +++++ test/stack.lorth | 5 ----- test/std.kurt | 4 ++++ test/syscall.kurt | 15 +++++++++++++ test/syscall.lorth | 15 ------------- test/tests.lisp | 4 ++-- 17 files changed, 121 insertions(+), 114 deletions(-) create mode 100644 test/arith.kurt delete mode 100644 test/arith.lorth create mode 100644 test/bits.kurt delete mode 100644 test/bits.lorth create mode 100644 test/branchs.kurt delete mode 100644 test/branchs.lorth create mode 100644 test/include.kurt create mode 100644 test/loop.kurt delete mode 100644 test/loop.lorth create mode 100644 test/makro.kurt delete mode 100644 test/makro.lorth create mode 100644 test/stack.kurt delete mode 100644 test/stack.lorth create mode 100644 test/std.kurt create mode 100644 test/syscall.kurt delete mode 100644 test/syscall.lorth (limited to 'test') diff --git a/test/arith.kurt b/test/arith.kurt new file mode 100644 index 0000000..76bef42 --- /dev/null +++ b/test/arith.kurt @@ -0,0 +1,3 @@ +;;; test +;;; (format nil "9~%") +3 6 + dump \ No newline at end of file diff --git a/test/arith.lorth b/test/arith.lorth deleted file mode 100644 index 76bef42..0000000 --- a/test/arith.lorth +++ /dev/null @@ -1,3 +0,0 @@ -;;; test -;;; (format nil "9~%") -3 6 + dump \ No newline at end of file diff --git a/test/bits.kurt b/test/bits.kurt new file mode 100644 index 0000000..77be5b0 --- /dev/null +++ b/test/bits.kurt @@ -0,0 +1,15 @@ +;;; test +;;; (format nil "~{~a~%~}" (append '(0 1 2) +;;; '(7 3 5) +;;; '(4 32 12))) +1 2 & dump +1 1 & dump +3 2 & dump + +1 2 4 | | dump +3 1 | dump +5 5 | dump + +32 3 >> dump +1 5 << dump +3 2 << dump \ No newline at end of file diff --git a/test/bits.lorth b/test/bits.lorth deleted file mode 100644 index 77be5b0..0000000 --- a/test/bits.lorth +++ /dev/null @@ -1,15 +0,0 @@ -;;; test -;;; (format nil "~{~a~%~}" (append '(0 1 2) -;;; '(7 3 5) -;;; '(4 32 12))) -1 2 & dump -1 1 & dump -3 2 & dump - -1 2 4 | | dump -3 1 | dump -5 5 | dump - -32 3 >> dump -1 5 << dump -3 2 << dump \ No newline at end of file diff --git a/test/branchs.kurt b/test/branchs.kurt new file mode 100644 index 0000000..41eaf96 --- /dev/null +++ b/test/branchs.kurt @@ -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 diff --git a/test/branchs.lorth b/test/branchs.lorth deleted file mode 100644 index 41eaf96..0000000 --- a/test/branchs.lorth +++ /dev/null @@ -1,62 +0,0 @@ -;;; 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 diff --git a/test/include.kurt b/test/include.kurt new file mode 100644 index 0000000..80b69d2 --- /dev/null +++ b/test/include.kurt @@ -0,0 +1,3 @@ +kütüphane "std.lorth" + +stdout "Merhaba Dünya!\n" write \ No newline at end of file diff --git a/test/loop.kurt b/test/loop.kurt new file mode 100644 index 0000000..8234010 --- /dev/null +++ b/test/loop.kurt @@ -0,0 +1,6 @@ +;;; test +;;; (format nil "~{~a~%~}" (list 0 1 2 3)) +0 döngü eş 4 < iken + eş dump + 1 + +yap \ No newline at end of file diff --git a/test/loop.lorth b/test/loop.lorth deleted file mode 100644 index 8234010..0000000 --- a/test/loop.lorth +++ /dev/null @@ -1,6 +0,0 @@ -;;; test -;;; (format nil "~{~a~%~}" (list 0 1 2 3)) -0 döngü eş 4 < iken - eş dump - 1 + -yap \ No newline at end of file diff --git a/test/makro.kurt b/test/makro.kurt new file mode 100644 index 0000000..405f98b --- /dev/null +++ b/test/makro.kurt @@ -0,0 +1,6 @@ +;;; test +;;; (format nil "Hello world!..~%") +makro write değiş 1 syscall-3 son +makro stdout 1 son + +stdout "Hello world!..\n" write diff --git a/test/makro.lorth b/test/makro.lorth deleted file mode 100644 index 405f98b..0000000 --- a/test/makro.lorth +++ /dev/null @@ -1,6 +0,0 @@ -;;; test -;;; (format nil "Hello world!..~%") -makro write değiş 1 syscall-3 son -makro stdout 1 son - -stdout "Hello world!..\n" write diff --git a/test/stack.kurt b/test/stack.kurt new file mode 100644 index 0000000..318d9be --- /dev/null +++ b/test/stack.kurt @@ -0,0 +1,5 @@ +;;; test +;;; (format nil "~{~a~%~}" '(1 5 4 4)) +1 dump +4 5 dump +eş dump dump diff --git a/test/stack.lorth b/test/stack.lorth deleted file mode 100644 index 318d9be..0000000 --- a/test/stack.lorth +++ /dev/null @@ -1,5 +0,0 @@ -;;; test -;;; (format nil "~{~a~%~}" '(1 5 4 4)) -1 dump -4 5 dump -eş dump dump diff --git a/test/std.kurt b/test/std.kurt new file mode 100644 index 0000000..cf7e684 --- /dev/null +++ b/test/std.kurt @@ -0,0 +1,4 @@ +makro sys-write 1 son +makro write (fd string -- ) + değiş sys-write syscall-3 son +makro stdout 1 son \ No newline at end of file diff --git a/test/syscall.kurt b/test/syscall.kurt new file mode 100644 index 0000000..a58a9ec --- /dev/null +++ b/test/syscall.kurt @@ -0,0 +1,15 @@ +;;; test +;;; (format nil "abc~%bcd~%") +bel 0 + 97 yaz +bel 1 + 98 yaz +bel 2 + 99 yaz +bel 3 + 10 yaz + +1 bel 4 1 syscall-3 + +bel 0 + eş oku 1 + yaz +bel 1 + eş oku 1 + yaz +bel 2 + eş oku 1 + yaz + +1 bel 4 1 syscall-3 +0 60 syscall-1 diff --git a/test/syscall.lorth b/test/syscall.lorth deleted file mode 100644 index a58a9ec..0000000 --- a/test/syscall.lorth +++ /dev/null @@ -1,15 +0,0 @@ -;;; test -;;; (format nil "abc~%bcd~%") -bel 0 + 97 yaz -bel 1 + 98 yaz -bel 2 + 99 yaz -bel 3 + 10 yaz - -1 bel 4 1 syscall-3 - -bel 0 + eş oku 1 + yaz -bel 1 + eş oku 1 + yaz -bel 2 + eş oku 1 + yaz - -1 bel 4 1 syscall-3 -0 60 syscall-1 diff --git a/test/tests.lisp b/test/tests.lisp index 8b00817..0907a58 100644 --- a/test/tests.lisp +++ b/test/tests.lisp @@ -1,4 +1,4 @@ -(in-package :cl-forth) +(in-package :kurt) (defun drop-file-type (file &key (returns :string)) (let* ((file-str (namestring file)) @@ -73,7 +73,7 @@ (ignore-errors (run-test file :target target)))) (remove-if-not (lambda (file) - (string= "lorth" (pathname-type file))) + (string= "kurt" (pathname-type file))) (cl-fad:list-directory (from-root "test")))) counting (eq t success?) into succs -- cgit v1.2.3