← Back to branch summary

~ubuntu-branches/ubuntu/trusty/cl-asdf/trusty

« back to all changes in this revision

Viewing changes to test/test-builtin-source-file-type.script

  • Committer: Package Import Robot
  • Author(s): Francois-Rene Rideau
  • Date: 2013-05-27 22:44:50 UTC
  • mfrom: (1.1.28)
  • Revision ID: package-import@ubuntu.com-20130527224450-4bddztgqi7q1uzn7
Tags: 2:3.0.1.2-1
ASDF 3.0.1.2 fixes issues with the debian package itself.
It also includes fixes to run-program and run-shell-command.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/test-builtin-source-file-type.script
1
1
;;; -*- Lisp -*-
2
 
(load "script-support.lisp")
3
 
(load-asdf)
4
 
 
5
 
(quit-on-error
6
 
 (setf asdf:*central-registry* '(*default-pathname-defaults*))
7
 
 (asdf:load-system 'test-builtin-source-file-type-1 :verbose t)
 
2
 
 
3
 
 
4
 
 
5
;;(trace source-file-type)
 
6
 
 
7
(progn
 
8
 (format t "~D~%" (asdf:asdf-version))
 
9
 
 
10
 (def-test-system test-builtin-source-file-type-1
 
11
   :default-component-class cl-source-file.cl
 
12
   :serial t
 
13
   :components ((:cl-source-file "file1") ; for the package
 
14
                (:file "test-tmp")))
 
15
 (load-system 'test-builtin-source-file-type-1 :verbose t)
8
16
 (assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
9
 
 (assert
10
 
   (equal (mapcar #'pathname-type
11
 
                  (mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))
12
 
          '("lisp" "cl")))
 
17
 (assert-equal
 
18
  (mapcar #'pathname-type
 
19
          (mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))
 
20
  '("lisp" "cl"))
13
21
 (delete-package :test-package)
 
22
 
 
23
 (def-test-system
 
24
     test-builtin-source-file-type-2
 
25
   :default-component-class cl-source-file.cl
 
26
   :serial t
 
27
   :components ((:file "file1" :type "lisp") ; for package
 
28
                (:file "test-tmp")))
14
29
 (asdf:load-system 'test-builtin-source-file-type-2 :verbose t)
15
30
 (assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
 
31
 
 
32
 (def-test-system test-builtin-source-file-type-3
 
33
   :default-component-class cl-source-file.lsp
 
34
   :serial t
 
35
   :components ((:cl-source-file "file1") ; for the package
 
36
                (:file "test-tmp")))
16
37
 (asdf:load-system 'test-builtin-source-file-type-3 :verbose t)
17
38
 (assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
18
 
 (assert
19
 
   (equal (mapcar #'pathname-type
20
 
                  (mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))
21
 
          '("lisp" "cl")))
 
39
 (assert-equal
 
40
  (mapcar #'pathname-type
 
41
          (mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))
 
42
  '("lisp" "cl"))
22
43
 (delete-package :test-package)
 
44
 
 
45
 (def-test-system test-builtin-source-file-type-4
 
46
   :default-component-class cl-source-file.lsp
 
47
   :serial t
 
48
   :components ((:file "file1" :type "lisp") ; for package
 
49
                (:file "test-tmp")))
23
50
 (asdf:load-system 'test-builtin-source-file-type-4 :verbose t)
24
 
 (assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
25
 
 )
 
51
 (assert (symbol-value (read-from-string "test-package::*test-tmp-cl*"))))