Load tests.lisp in cross compiled jscl

Author: davazp

src/toplevel.lisp

@@ -321,6 +321,7 @@ All errors are caught and report to *ERROR-OUTPUT*."
    #:jsbool #:clbool
    #:in)
   (:export
+   #:*root*
    #:object
    #:oget #:oset #:oget?
    #:typeof #:instanceof #:new

tests.lisp

@@ -10,6 +10,9 @@
 (defvar *use-html-output-p* nil)
 (defvar *timestamp* nil)
 
+#+(and jscl (not jscl-target))
+(use-package :jscl/ffi)
+
 ;; Initialize timestamp at load time (for prebuilt mode where tests
 ;; execute immediately during jscl-tests.js loading)
 (setq *timestamp* (get-internal-real-time))
@@ -95,13 +98,13 @@
 
 (defun exit-with-test-status ()
   "Exit the process with appropriate status code based on test results."
-  #+jscl-target
+  #+(or jscl jscl-target)
   (progn
     (when (in "phantom" *root*)
       (#j:phantom:exit *failed-tests*))
     (when (in "process" *root*)
       (#j:process:exit *failed-tests*)))
-  #-jscl-target
+  #-(or jscl jscl-target)
   (sb-ext:exit :code (if (zerop *failed-tests*) 0 (min *failed-tests* 255))))
 
 ;;;; Test File Discovery
@@ -116,7 +119,7 @@
         (let ((entry (clstring (aref entries i))))
           (when (and (> (length entry) 5)
                      (string= (subseq entry (- (length entry) 5)) ".lisp"))
-            (push (concat "tests/" entry) files)))))
+            (push (concatenate 'string "tests/" entry) files)))))
     (push "tests/loop/validate.lisp" files)
     (push "tests/loop/base-tests.lisp" files)
     (nreverse files))