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

Robustify test scripts against there being a directory asdf/ next to asdf.lisp

perl -pi.bak -e 's|"../asdf"|\(compile-file-pathname "../asdf"\)|;' *.script
parent 71437300
No related branches found
No related tags found
No related merge requests found
Showing with 19 additions and 19 deletions
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(quit-on-error (quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*)) (setf asdf:*central-registry* '(*default-pathname-defaults*))
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(quit-on-error (quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*)) (setf asdf:*central-registry* '(*default-pathname-defaults*))
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; check that added nesting via modules doesn't confuse ASDF ;;; check that added nesting via modules doesn't confuse ASDF
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(in-package #:common-lisp-user) (in-package #:common-lisp-user)
(quit-on-error (quit-on-error
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(in-package :cl-user) (in-package :cl-user)
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(quit-on-error (quit-on-error
(defun module () 1) (defun module () 1)
(load "test-package.asd") (load "test-package.asd")
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart ;;; test asdf:try-recompiling restart
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
;(trace asdf::find-component) ;(trace asdf::find-component)
;(trace asdf:run-shell-command asdf:oos asdf:perform asdf:operate) ;(trace asdf:run-shell-command asdf:oos asdf:perform asdf:operate)
;#+allegro ;#+allegro
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(quit-on-error (quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*)) (setf asdf:*central-registry* '(*default-pathname-defaults*))
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
;;; system that can be found using *system-definition-search-functions* ;;; system that can be found using *system-definition-search-functions*
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(quit-on-error (quit-on-error
(flet ((system-load-time (name) (flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name))) (let ((data (asdf::system-registered-p name)))
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
;;; system that canNOT be found using *system-definition-search-functions* ;;; system that canNOT be found using *system-definition-search-functions*
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(quit-on-error (quit-on-error
(flet ((system-load-time (name) (flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name))) (let ((data (asdf::system-registered-p name)))
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart ;;; test asdf:try-recompiling restart
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(defvar *caught-error* nil) (defvar *caught-error* nil)
(quit-on-error (quit-on-error
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(in-package :asdf) (in-package :asdf)
(cl-user::quit-on-error (cl-user::quit-on-error
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(setf asdf:*central-registry* '(*default-pathname-defaults*)) (setf asdf:*central-registry* '(*default-pathname-defaults*))
(defpackage :test-version-system (defpackage :test-version-system
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(quit-on-error (quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*)) (setf asdf:*central-registry* '(*default-pathname-defaults*))
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(quit-on-error (quit-on-error
(format t "test2 1~%") (format t "test2 1~%")
(setf asdf:*central-registry* '(*default-pathname-defaults*)) (setf asdf:*central-registry* '(*default-pathname-defaults*))
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
#+(or f1 f2) #+(or f1 f2)
(error "This test cannot run if :f1 or :f2 are on *features*") (error "This test cannot run if :f1 or :f2 are on *features*")
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(in-package :asdf) (in-package :asdf)
(cl-user::quit-on-error (cl-user::quit-on-error
(let ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp"))) (let ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp")))
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(in-package :asdf) (in-package :asdf)
(cl-user::quit-on-error (cl-user::quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*)) (setf asdf:*central-registry* '(*default-pathname-defaults*))
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; make sure we get a missing-component error ;;; make sure we get a missing-component error
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(in-package #:common-lisp-user) (in-package #:common-lisp-user)
(quit-on-error (quit-on-error
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; make sure we get a missing-component-of-version error ;;; make sure we get a missing-component-of-version error
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(in-package #:common-lisp-user) (in-package #:common-lisp-user)
(quit-on-error (quit-on-error
......
;;; -*- Lisp -*- ;;; -*- Lisp -*-
(load "script-support") (load "script-support")
(load "../asdf") (load (compile-file-pathname "../asdf"))
(quit-on-error (quit-on-error
(load "../asdf") (load (compile-file-pathname "../asdf"))
(load "../wild-modules") (load "../wild-modules")
(setf asdf:*central-registry* '(*default-pathname-defaults*)) (setf asdf:*central-registry* '(*default-pathname-defaults*))
......
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