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