Commit 8da3bfa8 authored Feb 04, 2010 by 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

test/test-force.script

+1 −1

Original line number	Diff line number	Diff line
		;;; -- Lisp --
		(load "script-support")
		(load "../asdf")
		(load (compile-file-pathname "../asdf"))
		(quit-on-error
		(setf asdf:central-registry '(default-pathname-defaults))

test/test-module-pathnames.script

+1 −1

Original line number	Diff line number	Diff line
		;;; -- Lisp --
		(load "script-support")
		(load "../asdf")
		(load (compile-file-pathname "../asdf"))

		(quit-on-error
		(setf asdf:central-registry '(default-pathname-defaults))

test/test-nested-components.script

+1 −1

Original line number	Diff line number	Diff line
		@@ -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

test/test-package.script

+1 −1

Original line number	Diff line number	Diff line
		;;; -- 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")

test/test-retry-loading-component-1.script

+1 −1

Original line number	Diff line number	Diff line
		@@ -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