;;; -*- Lisp -*-

(DBG :foo (current-lisp-file-pathname))

(defparameter exe (output-file (make-operation 'program-op) (find-system :hello-world-example)))
(assert (absolute-pathname-p exe))

(unless (and #-(or clisp clozure cmu ecl lispworks sbcl) nil
             #+cmu nil ;; uncomment if you have 32-bit gcc support - or can autodetect
             #+clisp (version-satisfies
                      (first (split-string (lisp-implementation-version) :separator " "))
                      "2.48"))
  (DBG "Creating standalone programs is not supported on your CL implementation")
  (leave-test "Skipping test" 0))

;; Try to load lisp-invocation from xcvb
(setf *central-registry*
      (list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
            ;; try finding xcvb's lisp-invocation right next to asdf.
            (subpathname *asdf-directory* "../xcvb/")))
(unless (find-system :lisp-invocation nil)
  ;; try harder by enabling the user's source-registry
  (initialize-source-registry ""))
(unless (find-system :lisp-invocation nil)
  (leave-test "Couldn't find lisp-invocation. Skipping the rest the test." 0))
(load-system :lisp-invocation)
;; Disable any user source registry.
(initialize-source-registry `(:source-registry :ignore-inherited-configuration))

(delete-file-if-exists exe)
(run-program/
 (symbol-call :lisp-invocation :lisp-invocation-arglist
              :load (native-namestring (subpathname *test-directory* "make-hello-world.lisp"))))
(assert (probe-file* exe))

(assert-equal (run-program/ `(,(native-namestring exe)) :output :lines)

              '("hello, world"))