Commit d5ae88b8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Disable the image-op test on LispWorks/Windows

parent 5c9726e5

test/test-program.script

+62 −57
Original line number Diff line number Diff line
@@ -42,6 +42,8 @@ 
     :output (list *standard-output* :linewise t :prefix "stdout: ")

     :error-output (list *error-output* :linewise t :prefix "stderr: ")))))



#-(and lispworks os-windows)

(progn

  (DBG "test image-op")

  (defparameter img (output-file (make-operation 'image-op) (find-system :hello-world-example)))

  (assert (absolute-pathname-p img))
@@ -55,8 +57,9 @@ 
   (nest

    #+lispworks (last)

    (run-program

   (symbol-call :lisp-invocation :lisp-invocation-arglist

     (symbol-call

      #+allegro :lisp-path #+allegro *lisp*

      :lisp-invocation :lisp-invocation-arglist

      :image-path (native-namestring img)

      :eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)")

     :output :lines :error-output t))
@@ -66,8 +69,9 @@ 
  #-(or lispworks scl) ;; These can't be passed arguments the normal way

  (assert-equal

   (run-program

  (symbol-call :lisp-invocation :lisp-invocation-arglist

    (symbol-call

     #+allegro :lisp-path #+allegro *lisp*

     :lisp-invocation :lisp-invocation-arglist

     :image-path (native-namestring img)

     :eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)"

     :arguments '("a" "b c" "d"))
@@ -76,8 +80,9 @@ 
     "You passed 3 arguments:"

     "  \"a\""

     "  \"b c\""

   "  \"d\""))

     "  \"d\"")))



(progn

  (DBG "test program-op")

  (unless (or #+(or clisp clozure (and ecl (not ecl-bytecmp)) lispworks mkcl sbcl) t

              #+cmu nil ;; uncomment if you have 32-bit gcc support - or can autodetect
@@ -104,7 +109,7 @@ 
                  "You passed 3 arguments:"

                  "  \"a\""

                  "  \"b c\""

                "  \"d\""))

                  "  \"d\"")))



#+(or ecl mkcl)

(progn