;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)

(quit-on-error
  (setf asdf:*central-registry* '(*default-pathname-defaults*))
  (asdf:load-system 'test-renamings :force t)
  (unless (member :tp3 (package-nicknames :test-package-3)
                  :test #'string-equal)
    (error "Package nickname tp3 shouldn't have cleared!")))