Add test for new builtin cl-source-file.cl component class.

(defsystem test-builtin-source-file-type-1

    :default-component-class cl-source-file.cl

    :serial t

    :components ((:cl-source-file "file1") ; for the package

                 (:file "test-tmp")))

(defsystem test-builtin-source-file-type-2

  :default-component-class cl-source-file.cl

  :serial t

  :components ((:file "file1" :type "lisp") ; for package

               (:file "test-tmp")))

;;; -*- Lisp -*-

(load "script-support.lisp")

(load-asdf)

(quit-on-error

 (setf asdf:*central-registry* '(*default-pathname-defaults*))

 (asdf:load-system 'test-builtin-source-file-type-1 :verbose t)

 (assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))

 (assert

   (equal (mapcar #'pathname-type

                  (mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))

          '("lisp" "cl")))

 (delete-package :test-package)

 (asdf:load-system 'test-builtin-source-file-type-2 :verbose t)

 (assert (symbol-value (read-from-string "test-package::*test-tmp-cl*"))))