diff options
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))) |