From 3fc13bcdddd09065a9dae1ec054ab8af56c95109 Mon Sep 17 00:00:00 2001 From: mRnea Date: Thu, 22 Aug 2024 01:13:28 +0300 Subject: added some string escape chars and include path --- test/tests.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'test/tests.lisp') 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))) -- cgit v1.2.3