From e7ad0ccac49f73dc8e8647a7f0a9b976e9330cf5 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@real-time.com> Date: Mon, 2 May 2011 15:16:53 -0500 Subject: [PATCH] Extended the test for cl-source-file.cl to cl-source-file.lsp. --- test/test-builtin-source-file-type-3.asd | 5 +++++ test/test-builtin-source-file-type-4.asd | 5 +++++ test/test-builtin-source-file-type.script | 12 +++++++++++- test/test-tmp.lsp | 10 ++++++++++ 4 files changed, 31 insertions(+), 1 deletion(-) create mode 100644 test/test-builtin-source-file-type-3.asd create mode 100644 test/test-builtin-source-file-type-4.asd create mode 100644 test/test-tmp.lsp diff --git a/test/test-builtin-source-file-type-3.asd b/test/test-builtin-source-file-type-3.asd new file mode 100644 index 00000000..fac47c9d --- /dev/null +++ b/test/test-builtin-source-file-type-3.asd @@ -0,0 +1,5 @@ +(defsystem test-builtin-source-file-type-3 + :default-component-class cl-source-file.lsp + :serial t + :components ((:cl-source-file "file1") ; for the package + (:file "test-tmp"))) diff --git a/test/test-builtin-source-file-type-4.asd b/test/test-builtin-source-file-type-4.asd new file mode 100644 index 00000000..84fcf680 --- /dev/null +++ b/test/test-builtin-source-file-type-4.asd @@ -0,0 +1,5 @@ +(defsystem test-builtin-source-file-type-4 + :default-component-class cl-source-file.lsp + :serial t + :components ((:file "file1" :type "lisp") ; for package + (:file "test-tmp"))) diff --git a/test/test-builtin-source-file-type.script b/test/test-builtin-source-file-type.script index e9dbdc54..523653a0 100644 --- a/test/test-builtin-source-file-type.script +++ b/test/test-builtin-source-file-type.script @@ -12,4 +12,14 @@ '("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*")))) + (assert (symbol-value (read-from-string "test-package::*test-tmp-cl*"))) + (asdf:load-system 'test-builtin-source-file-type-3 :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-4 :verbose t) + (assert (symbol-value (read-from-string "test-package::*test-tmp-cl*"))) + ) diff --git a/test/test-tmp.lsp b/test/test-tmp.lsp new file mode 100644 index 00000000..7e8dd859 --- /dev/null +++ b/test/test-tmp.lsp @@ -0,0 +1,10 @@ +;; part of the test-module-pathnames test + +(in-package #:test-package) + +(defparameter *test-tmp-cl* t) + +(eval-when (:compile-toplevel :execute) + (format t "compiling test-tmp.cl~%")) +(eval-when (:load-toplevel :execute) + (format t "loading test-tmp.cl~%")) -- GitLab