Commit 6f47db48 authored by Robert P. Goldman's avatar Robert P. Goldman

Integrated Xach's test into the set of tests. Still fails.

parent c9f0f9a3
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)
(quit-on-error
(let ((*default-pathname-defaults* (make-pathname :name nil
:type nil
:defaults *load-truename*)))
(setf asdf:*central-registry* nil)
(push (merge-pathnames #p"xach-foo-1/") asdf:*central-registry*)
(asdf:load-system "foo")
(assert (symbol-value (find-symbol (string :loaded) :first-version)))
(progn
(push (merge-pathnames #p"xach-foo-2/") asdf:*central-registry*)
(asdf:load-system "foo")
(assert (symbol-value (find-symbol (string :loaded) :second-version)))
(assert (eql 42 (funcall (find-symbol (string :wtf) :second-version)))))
)
)
;;;; a.lisp
(defpackage #:first-version
(:use #:cl)
(:export #:loaded))
(in-package #:first-version)
(defparameter loaded t)
;;;; a.lisp
(defpackage #:second-version
(:use #:cl)
(:export #:loaded #:wtf))
(in-package #:second-version)
(defparameter loaded t)
;;;; b.lisp
(in-package #:a)
(in-package #:second-version)
(defun wtf ()
42)
;;;; a.lisp
(defpackage #:a
(:use #:cl))
(in-package #:a)
;;;; a.lisp
(defpackage #:a
(:use #:cl))
(in-package #:a)
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