Skip to content
Snippets Groups Projects
Commit 286c7c3c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix the image-op test script.

Report some implementation bugs in TODO.
parent 9a68001c
No related branches found
No related tags found
No related merge requests found
...@@ -128,6 +128,7 @@ ...@@ -128,6 +128,7 @@
but prints the namestring with a dot separator! but prints the namestring with a dot separator!
(make-pathname :name "foo" :type :unspecific) ==> #P"foo." (make-pathname :name "foo" :type :unspecific) ==> #P"foo."
If bug is ever fixed, upgrade *unspecific-pathname-type* in uiop/pathname. If bug is ever fixed, upgrade *unspecific-pathname-type* in uiop/pathname.
*** XCL doesn't properly process files the name of which contains a *
** GCL is almost working again; but implementation bugs remain. ** GCL is almost working again; but implementation bugs remain.
See November 2013 discussion on gcl-devel. See November 2013 discussion on gcl-devel.
...@@ -157,6 +158,7 @@ ...@@ -157,6 +158,7 @@
*** `#5(1 ,@`(2 3)))` returns #(1 2 3), *** `#5(1 ,@`(2 3)))` returns #(1 2 3),
rather than #(1 2 3 2 3 2 3 2 3) or even better #(1 2 3 3 3). rather than #(1 2 3 2 3 2 3 2 3) or even better #(1 2 3 3 3).
*** (DIRECTORY #p"*.*") fails to match files with pathname type NIL. *** (DIRECTORY #p"*.*") fails to match files with pathname type NIL.
*** GCL doesn't properly process files the name of which contains a *
*** Require is useless, because there is no system search path, *** Require is useless, because there is no system search path,
and so you can't put ASDF (or anything) there. and so you can't put ASDF (or anything) there.
*** Low-level compiler bug: *** Low-level compiler bug:
...@@ -166,11 +168,13 @@ ...@@ -166,11 +168,13 @@
*** ABCL fails the timestamp propagation test. *** ABCL fails the timestamp propagation test.
*** `#5(1 ,@`(2 3)))` returns #(1 2 3), *** `#5(1 ,@`(2 3)))` returns #(1 2 3),
rather than #(1 2 3 2 3 2 3 2 3) or even better #(1 2 3 3 3). rather than #(1 2 3 2 3 2 3 2 3) or even better #(1 2 3 3 3).
*** ABCL doesn't properly process files the name of which contains a *
** ECL has issues with its bundles. ** ECL has issues with its bundles.
On MacOS X, test-bundle.script fails. On MacOS X, test-bundle.script fails.
On Linux, test-program.script fails with recent ECL 237af2e, On Linux, test-program.script fails with recent ECL 237af2e,
but used to work quite fine earlier in 2013. but used to work quite fine earlier in 2013.
*** ECL doesn't properly process files the name of which contains a *
* Design & Implement some out-of-line configuration mechanism for various options? * Design & Implement some out-of-line configuration mechanism for various options?
i.e. let configuration files override some variables around some actions. i.e. let configuration files override some variables around some actions.
......
...@@ -41,14 +41,14 @@ ...@@ -41,14 +41,14 @@
(assert-equal (run-program (assert-equal (run-program
(symbol-call :lisp-invocation :lisp-invocation-arglist (symbol-call :lisp-invocation :lisp-invocation-arglist
:image-path (native-namestring img) :image-path (native-namestring img)
:eval "(uiop:restore-image :entry-point 'hello:entry-point)") :eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)")
:output :lines) :output :lines)
'("hello, world")) '("hello, world"))
(assert-equal (run-program (assert-equal (run-program
(symbol-call :lisp-invocation :lisp-invocation-arglist (symbol-call :lisp-invocation :lisp-invocation-arglist
:image-path (native-namestring img) :image-path (native-namestring img)
:eval "(uiop:restore-image :entry-point 'hello:entry-point)" :eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)"
:arguments '("a" "b c" "d")) :arguments '("a" "b c" "d"))
:output :lines) :output :lines)
'("hello, world" '("hello, world"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment