Commit 8da3bfa8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

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
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
......
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
......
......@@ -3,7 +3,7 @@
;;; check that added nesting via modules doesn't confuse ASDF
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(in-package #:common-lisp-user)
(quit-on-error
......
;;; -*- Lisp -*-
(in-package :cl-user)
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(defun module () 1)
(load "test-package.asd")
......
......@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
;(trace asdf::find-component)
;(trace asdf:run-shell-command asdf:oos asdf:perform asdf:operate)
;#+allegro
......
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
......
......@@ -4,7 +4,7 @@
;;; system that can be found using *system-definition-search-functions*
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name)))
......
......@@ -4,7 +4,7 @@
;;; system that canNOT be found using *system-definition-search-functions*
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(flet ((system-load-time (name)
(let ((data (asdf::system-registered-p name)))
......
......@@ -3,7 +3,7 @@
;;; test asdf:try-recompiling restart
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(defvar *caught-error* nil)
(quit-on-error
......
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(in-package :asdf)
(cl-user::quit-on-error
......
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(defpackage :test-version-system
......
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
......
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(format t "test2 1~%")
(setf asdf:*central-registry* '(*default-pathname-defaults*))
......
......@@ -2,7 +2,7 @@
#+(or f1 f2)
(error "This test cannot run if :f1 or :f2 are on *features*")
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(in-package :asdf)
(cl-user::quit-on-error
(let ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp")))
......
;;; -*- Lisp -*-
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(in-package :asdf)
(cl-user::quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
......
......@@ -3,7 +3,7 @@
;;; make sure we get a missing-component error
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(in-package #:common-lisp-user)
(quit-on-error
......
......@@ -3,7 +3,7 @@
;;; make sure we get a missing-component-of-version error
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(in-package #:common-lisp-user)
(quit-on-error
......
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(load "../asdf")
(load (compile-file-pathname "../asdf"))
(load "../wild-modules")
(setf asdf:*central-registry* '(*default-pathname-defaults*))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment