diff options
| author | mRnea <akannemre@gmail.com> | 2024-08-22 01:13:28 +0300 |
|---|---|---|
| committer | mRnea <akannemre@gmail.com> | 2024-08-22 01:13:28 +0300 |
| commit | 3fc13bcdddd09065a9dae1ec054ab8af56c95109 (patch) | |
| tree | 9bd222aa7a2bac3675fc89ef11a9afc7db74e900 /test | |
| parent | 4c8409da359cf0da14214ccc939c10ac759f76a5 (diff) | |
added some string escape chars and include path
Diffstat (limited to 'test')
| -rw-r--r-- | test/tests.lisp | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/test/tests.lisp b/test/tests.lisp index 0907a58..4c3ff18 100644 --- a/test/tests.lisp +++ b/test/tests.lisp @@ -35,7 +35,7 @@ path (from-root path))) (successful nil)) - (with-open-file (str abs-path) + (with-open-file (str abs-path :external-format :utf-8) (unless (string-equal "test" (second (uiop:split-string (read-line str) :separator '(#\Space)))) @@ -74,8 +74,11 @@ (run-test file :target target)))) (remove-if-not (lambda (file) (string= "kurt" (pathname-type file))) - (cl-fad:list-directory - (from-root "test")))) + (append + (cl-fad:list-directory + (from-root "test")) + (cl-fad:list-directory + (from-root "examples/euler"))))) counting (eq t success?) into succs counting (null success?) into fails finally (format t "~a success, ~a fail~%" succs fails))) |