Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
f6832b7a
Commit
f6832b7a
authored
Jan 20, 2013
by
Francois-Rene Rideau
Browse files
2.26.130: fix compile-file* for ecl_bytecodes
Also, make script re-loadable in a debug session.
parent
16223e47
Changes
49
Hide whitespace changes
Inline
Side-by-side
test/test-package.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(in-package :cl-user)
(asdf-test::with-test ()
(defun module () 1)
...
...
test/test-program.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(progn
...
...
test/test-redundant-recompile.asd
deleted
100644 → 0
View file @
16223e47
;;; -*- Lisp -*-
(
asdf:defsystem
test-redundant-recompile
:components
((
:file
"file2"
:in-order-to
((
compile-op
(
load-op
"file1"
))
(
load-op
(
load-op
"file1"
))))
(
:file
"file1"
)))
#|
;;;This test system definition attempts to replicate the excess dependencies
;;;that seem to give rise to launchpad bug 590517
;;;(https://bugs.launchpad.net/asdf/+bug/590517)
1) from clean, check that all fasl files build and that some function
defined in the second file is present
2) load again. Check to make sure that nothing is recompiled.
|#
test/test-redundant-recompile.script
View file @
f6832b7a
;;; -*- Lisp -*-
#|
;;;This test system definition attempts to replicate the excess dependencies
;;;that seem to give rise to launchpad bug 590517
;;;(https://bugs.launchpad.net/asdf/+bug/590517)
(load-asdf)
1) from clean, check that all fasl files build and that some function
defined in the second file is present
(asdf:operate 'asdf:load-op 'test-redundant-recompile)
2) load again. Check to make sure that nothing is recompiled.
|#
(def-test-system test-redundant-recompile
:components ((:file "file2" :in-order-to ((compile-op (load-op "file1"))
(load-op (load-op "file1"))))
(:file "file1")))
(load-system 'test-redundant-recompile)
;; test that it compiled
(defparameter file1 (test-fasl "file1"))
(defparameter file2 (test-fasl "file2"))
...
...
test/test-retry-loading-component-1.script
View file @
f6832b7a
...
...
@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart
(load-asdf)
(defvar *caught-error* nil)
(progn
(DBG "trlc1 1")
...
...
test/test-run-program.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
;;; TODO: write tests for run-program/ instead -- and/or
;;; import those from the original xcvb-driver-test
...
...
test/test-samedir-modules.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(DBG "loading test-samedir-modules")
(asdf:operate 'asdf:load-op 'test-samedir-modules)
...
...
test/test-source-file-type.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
;;(trace asdf::source-file-type asdf::source-file-explicit-type)
...
...
test/test-static-and-serial.script
View file @
f6832b7a
...
...
@@ -4,7 +4,7 @@ make sure that serial t and static-files
don't cause full rebuilds all the time...
|#
(load-asdf)
(in-package :asdf-test)
...
...
test/test-sysdef-asdf.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(progn
(asdf:initialize-source-registry '(:source-registry :ignore-inherited-configuration))
...
...
test/test-system-pathnames.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(progn
(asdf:load-system 'test-system-pathnames)
...
...
test/test-touch-system-1.script
View file @
f6832b7a
...
...
@@ -3,7 +3,7 @@
;;; test system def reloading if touched
;;; system that can be found using *system-definition-search-functions*
(load-asdf)
(defun system-load-time (name)
(if-let (data (asdf::system-registered-p name))
...
...
test/test-touch-system-2.script
View file @
f6832b7a
...
...
@@ -4,7 +4,7 @@
;;; system that canNOT be found using *system-definition-search-functions*
(load-asdf)
(progn
(flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name)))
...
...
test/test-try-recompiling-1.script
View file @
f6832b7a
...
...
@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart
(load-asdf)
(defparameter *caught-error* nil)
(delete-file-if-exists (test-fasl "try-recompiling-1"))
...
...
test/test-urls-1.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
#+scl
(require :http-library)
...
...
test/test-urls-2.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
#+scl
(require :http-library)
...
...
test/test-utilities.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(in-package :asdf)
(use-package :asdf-test)
...
...
test/test-version.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(progn
(def-test-system :versioned-system-1
...
...
test/test-weakly-depends-on-present.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
;;;---------------------------------------------------------------------------
;;; Check to see if a weakly-depended-on system, which is present in the
...
...
test/test-weakly-depends-on-unpresent.script
View file @
f6832b7a
...
...
@@ -7,7 +7,7 @@
;;;---------------------------------------------------------------------------
(load-asdf)
(asdf:load-system 'test-weakly-depends-on-unpresent)
;; test that it compiled
...
...
Prev
1
2
3
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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