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
Didier Verna
asdf
Commits
1250bbc5
Commit
1250bbc5
authored
Feb 06, 2010
by
Francois-Rene Rideau
Browse files
Use truenamize in compile-file-pathname*
Simplify test scripts.
parent
f4d73c7e
Changes
21
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
1250bbc5
...
...
@@ -187,7 +187,7 @@
;;;;
(
defparameter
*asdf-version*
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(
subseq
"VERSION:1.60
4
"
(
1+
(
length
"VERSION"
))))
(
subseq
"VERSION:1.60
5
"
(
1+
(
length
"VERSION"
))))
(
defun
asdf-version
()
*asdf-version*
)
...
...
@@ -2259,7 +2259,9 @@ with a different configuration, so the configuration would be re-read then."
(
defun
compile-file-pathname*
(
input-file
&rest
keys
)
(
apply-output-translations
(
apply
#'
compile-file-pathname
input-file
keys
)))
(
apply
#'
compile-file-pathname
(
truenamize
(
merge-pathnames
(
make-pathname
:type
"lisp"
)
input-file
))
keys
)))
;;;; -----------------------------------------------------------------
;;;; Windows shortcut support. Based on:
...
...
test/compile-asdf.lisp
View file @
1250bbc5
(
in-package
#:common-lisp-user
)
(
load
"test/script-support.lisp"
)
(
load
(
merge-pathnames
"script-support"
*load-pathname*
)
)
(
cond
((
probe-file
"asdf.lisp"
)
(
cond
((
probe-file
*asdf-lisp*
)
(
ensure-directories-exist
*asdf-fasl*
)
(
multiple-value-bind
(
result
warnings-p
errors-p
)
;; style warnings shouldn't abort the compilation [2010/02/03:rpg]
(
handler-bind
((
style-warning
#'
(
lambda
(
w
)
(
princ
w
*error-output*
)
(
muffle-warning
w
))))
(
compile-file
"asdf.lisp"
))
(
compile-file
*asdf-lisp*
:output-file
*asdf-fasl*
))
(
declare
(
ignore
result
))
(
cond
(
warnings-p
;;; ECL gives warnings that it shouldn't!
...
...
@@ -22,4 +24,3 @@
(
leave-lisp
"ASDF compiled cleanly"
0
)))))
(
t
(
leave-lisp
"Testsuite failed: unable to find ASDF source"
3
)))
test/script-support.lisp
View file @
1250bbc5
(
in-package
#:common-lisp-user
)
(
defvar
*asdf-lisp*
(
truename
(
merge-pathnames
"../asdf.lisp"
*load-truename*
)))
(
defvar
*asdf-fasl*
(
compile-file-pathname
(
merge-pathnames
"tmp/"
*asdf-lisp*
)))
(
defun
load-asdf
()
(
load
*asdf-fasl*
))
#+
allegro
(
setf
excl:*warn-on-nested-reader-conditionals*
nil
)
...
...
test/test-force.script
View file @
1250bbc5
;;; -*- Lisp -*-
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(asdf:operate 'asdf:load-op 'test-force)
(let* ((file1 (asdf:compile-file-pathname*
(truename "file1.lisp")
))
(let* ((file1 (asdf:compile-file-pathname*
"file1"
))
(file1-date (file-write-date file1)))
(assert file1)
...
...
test/test-module-pathnames.script
View file @
1250bbc5
;;; -*- Lisp -*-
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
...
...
test/test-nested-components.script
View file @
1250bbc5
...
...
@@ -3,7 +3,7 @@
;;; check that added nesting via modules doesn't confuse ASDF
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(in-package #:common-lisp-user)
(quit-on-error
...
...
test/test-package.script
View file @
1250bbc5
;;; -*- Lisp -*-
(in-package :cl-user)
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(quit-on-error
(defun module () 1)
(load "test-package.asd")
...
...
test/test-retry-loading-component-1.script
View file @
1250bbc5
...
...
@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
;(trace asdf::find-component)
;(trace asdf:run-shell-command asdf:oos asdf:perform asdf:operate)
;#+allegro
...
...
test/test-static-and-serial.script
View file @
1250bbc5
;;; -*- Lisp -*-
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
...
...
test/test-touch-system-1.script
View file @
1250bbc5
...
...
@@ -4,7 +4,7 @@
;;; system that can be found using *system-definition-search-functions*
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(quit-on-error
(flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name)))
...
...
test/test-touch-system-2.script
View file @
1250bbc5
...
...
@@ -4,7 +4,7 @@
;;; system that canNOT be found using *system-definition-search-functions*
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(quit-on-error
(flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name)))
...
...
test/test-try-recompiling-1.script
View file @
1250bbc5
...
...
@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(defvar *caught-error* nil)
(quit-on-error
...
...
test/test-utilities.script
View file @
1250bbc5
;;; -*- Lisp -*-
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(in-package :asdf)
(cl-user::quit-on-error
...
...
test/test-version.script
View file @
1250bbc5
;;; -*- Lisp -*-
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(defpackage :test-version-system
...
...
test/test1.script
View file @
1250bbc5
;;; -*- Lisp -*-
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(asdf:operate 'asdf:load-op 'test1)
;; test that it compiled
(let* ((file1 (asdf:compile-file-pathname*
(truename "file1.lisp")
))
(file2 (asdf:compile-file-pathname*
(truename "file2.lisp")
))
(let* ((file1 (asdf:compile-file-pathname*
"file1"
))
(file2 (asdf:compile-file-pathname*
"file2"
))
(file1-date (file-write-date file1)))
(format t "~&test1 1: ~S ~S~%" file1 file1-date)
...
...
test/test2.script
View file @
1250bbc5
;;; -*- Lisp -*-
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(quit-on-error
(format t "test2 1~%")
(setf asdf:*central-registry* '(*default-pathname-defaults*))
...
...
test/test3.script
View file @
1250bbc5
...
...
@@ -2,7 +2,7 @@
#+(or f1 f2)
(error "This test cannot run if :f1 or :f2 are on *features*")
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(in-package :asdf)
(cl-user::quit-on-error
(let ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp")))
...
...
test/test4.script
View file @
1250bbc5
;;; -*- Lisp -*-
;;; -*- Lisp -*-
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(in-package :asdf)
(cl-user::quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
...
...
test/test8.script
View file @
1250bbc5
...
...
@@ -3,7 +3,7 @@
;;; make sure we get a missing-component error
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(in-package #:common-lisp-user)
(quit-on-error
...
...
test/test9.script
View file @
1250bbc5
...
...
@@ -3,7 +3,7 @@
;;; make sure we get a missing-component-of-version error
(load "script-support")
(load
(compile-file-pathname "../
asdf
")
)
(load
-
asdf)
(in-package #:common-lisp-user)
(quit-on-error
...
...
Prev
1
2
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