simyager/kurt
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

C code passes all tests

Browse Source
This commit is contained in:
mRnea
2024-08-09 11:54:22 +03:00
parent b574944656
commit e7b5f4fec7
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test/tests.lisp
View File

@@ -66,16 +66,19 @@
"---actual output---"
output))))
;; delete generated .asm .o and executable file
(delete-file (probe-file (change-file-type abs-path "asm")))
(delete-file (probe-file (change-file-type abs-path "o")))
(case target
(:nasm (delete-file (probe-file (change-file-type abs-path "asm")))
(delete-file (probe-file (change-file-type abs-path "o"))))
(:c (delete-file (probe-file (change-file-type abs-path "c")))))
(delete-file (probe-file (drop-file-type abs-path)))))
successful))
(defun run-tests (&optional (ignore-err nil))
(defun run-tests (&key (ignore-err nil) (target :nasm))
(loop for success?
in (mapcar (lambda (file) (if (not ignore-err)
(run-test file)
(ignore-errors (run-test file))))
(run-test file :target target)
(ignore-errors
(run-test file :target target))))
(remove-if-not (lambda (file)
(string= "lorth" (pathname-type file)))
(cl-fad:list-directory