;;; -*- Lisp -*-
(in-package :asdf)

(defun call-renamings (thunk)
  (call-with-package-renamings ((:test-package-1 :tp-1)
                                (:test-package-2 (:tp2 :tp-2))
                                (:test-package-3 (:tp-3 :tp3)))
    (funcall thunk)))

(defsystem test-renamings
  :around-compile call-renamings
  :depends-on ((:version :asdf "2.017.18")) ; fix version number !!!
  :components ((:file "test-renamings-package" :around-compile nil)
               (:file "test-renamings-file")))