Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
286c7c3c
Commit
286c7c3c
authored
Mar 18, 2014
by
Francois-Rene Rideau
Browse files
Fix the image-op test script.
Report some implementation bugs in TODO.
parent
9a68001c
Changes
2
Hide whitespace changes
Inline
Side-by-side
TODO
View file @
286c7c3c
...
...
@@ -128,6 +128,7 @@
but prints the namestring with a dot separator!
(make-pathname :name "foo" :type :unspecific) ==> #P"foo."
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.
See November 2013 discussion on gcl-devel.
...
...
@@ -157,6 +158,7 @@
*** `#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).
*** (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,
and so you can't put ASDF (or anything) there.
*** Low-level compiler bug:
...
...
@@ -166,11 +168,13 @@
*** ABCL fails the timestamp propagation test.
*** `#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).
*** ABCL doesn't properly process files the name of which contains a *
** ECL has issues with its bundles.
On MacOS X, test-bundle.script fails.
On Linux, test-program.script fails with recent ECL 237af2e,
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?
i.e. let configuration files override some variables around some actions.
...
...
test/test-program.script
View file @
286c7c3c
...
...
@@ -41,14 +41,14 @@
(assert-equal (run-program
(symbol-call :lisp-invocation :lisp-invocation-arglist
: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)
'("hello, world"))
(assert-equal (run-program
(symbol-call :lisp-invocation :lisp-invocation-arglist
: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"))
:output :lines)
'("hello, world"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment