diff options
| author | mRnea <akannemre@gmail.com> | 2024-08-16 10:09:45 +0300 |
|---|---|---|
| committer | mRnea <akannemre@gmail.com> | 2024-08-16 10:09:45 +0300 |
| commit | e90d1248920b50e5f8c25ab406a9095e3f6a2358 (patch) | |
| tree | 298141c8cfabc515c37d2dd7996d8590b711698b /test | |
| parent | 68947d00aa6666d6e4daed6a0f75009c9bf3048d (diff) | |
changed project name from cl-forth to kurt
Diffstat (limited to 'test')
| -rw-r--r-- | test/arith.kurt (renamed from test/arith.lorth) | 0 | ||||
| -rw-r--r-- | test/bits.kurt (renamed from test/bits.lorth) | 0 | ||||
| -rw-r--r-- | test/branchs.kurt (renamed from test/branchs.lorth) | 0 | ||||
| -rw-r--r-- | test/include.kurt | 3 | ||||
| -rw-r--r-- | test/loop.kurt (renamed from test/loop.lorth) | 0 | ||||
| -rw-r--r-- | test/makro.kurt (renamed from test/makro.lorth) | 0 | ||||
| -rw-r--r-- | test/stack.kurt (renamed from test/stack.lorth) | 0 | ||||
| -rw-r--r-- | test/std.kurt | 4 | ||||
| -rw-r--r-- | test/syscall.kurt (renamed from test/syscall.lorth) | 0 | ||||
| -rw-r--r-- | test/tests.lisp | 4 |
10 files changed, 9 insertions, 2 deletions
diff --git a/test/arith.lorth b/test/arith.kurt index 76bef42..76bef42 100644 --- a/test/arith.lorth +++ b/test/arith.kurt diff --git a/test/bits.lorth b/test/bits.kurt index 77be5b0..77be5b0 100644 --- a/test/bits.lorth +++ b/test/bits.kurt diff --git a/test/branchs.lorth b/test/branchs.kurt index 41eaf96..41eaf96 100644 --- a/test/branchs.lorth +++ b/test/branchs.kurt 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.lorth b/test/loop.kurt index 8234010..8234010 100644 --- a/test/loop.lorth +++ b/test/loop.kurt diff --git a/test/makro.lorth b/test/makro.kurt index 405f98b..405f98b 100644 --- a/test/makro.lorth +++ b/test/makro.kurt diff --git a/test/stack.lorth b/test/stack.kurt index 318d9be..318d9be 100644 --- a/test/stack.lorth +++ b/test/stack.kurt 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.lorth b/test/syscall.kurt index a58a9ec..a58a9ec 100644 --- a/test/syscall.lorth +++ b/test/syscall.kurt 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 |