/[gcl]/gcl/ansi-tests/compile-file.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/compile-file.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pfdietz, Mon Apr 11 12:49:20 2005 UTC revision 1.5 by pfdietz, Tue Apr 12 12:32:58 2005 UTC
# Line 50  Line 50 
50          (values          (values
51           (equalpt (namestring (truename target-pathname))           (equalpt (namestring (truename target-pathname))
52                    (namestring output-truename))                    (namestring output-truename))
          (notnot failure-p)  
53           (notnot (fboundp funname))           (notnot (fboundp funname))
54           (progn           (progn
55             (load target-pathname)             (load target-pathname)
# Line 58  Line 57 
57    
58  (deftest compile-file.1  (deftest compile-file.1
59    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1)    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1)
60    t nil nil nil)    t nil nil)
61    
62  (deftest compile-file.2  (deftest compile-file.2
63    (compile-file-test "compile-file-test-file-2.lsp" 'compile-file-test-fun.2    (compile-file-test "compile-file-test-file-2.lsp" 'compile-file-test-fun.2
64                       :expect-style-warnings t)                       :expect-style-warnings t)
65    t t nil nil)    t nil nil)
66    
67    (deftest compile-file.2a
68      (compile-file-test "compile-file-test-file-2a.lsp" 'compile-file-test-fun.2a
69                         :expect-warnings t)
70      t nil nil)
71    
72  (deftest compile-file.3  (deftest compile-file.3
73    (let ((*package* (find-package "CL-TEST")))    (let ((*package* (find-package "CL-TEST")))
74      (compile-file-test "compile-file-test-file-3.lsp" 'compile-file-test-fun.3))      (compile-file-test "compile-file-test-file-3.lsp" 'compile-file-test-fun.3))
75    t nil nil nil)    t nil nil)
76    
77  (deftest compile-file.4  (deftest compile-file.4
78    (let ((*package* (find-package "CL-USER")))    (let ((*package* (find-package "CL-USER")))
79      (compile-file-test "compile-file-test-file-3.lsp" 'cl-user::compile-file-test-fun.3))      (compile-file-test "compile-file-test-file-3.lsp" 'cl-user::compile-file-test-fun.3))
80    t nil nil nil)    t nil nil)
81    
82  (deftest compile-file.5  (deftest compile-file.5
83    (compile-file-test #p"compile-file-test-file.lsp" 'compile-file-test-fun.1)    (compile-file-test #p"compile-file-test-file.lsp" 'compile-file-test-fun.1)
84    t nil nil nil)    t nil nil)
85    
86  (deftest compile-file.6  (deftest compile-file.6
87    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
88                       :output-file "foo.fasl")                       :output-file "foo.fasl")
89    t nil nil nil)    t nil nil)
90    
91  (deftest compile-file.6a  (deftest compile-file.6a
92    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
93                       :output-file "foo.ufsl")                       :output-file "foo.ufsl")
94    t nil nil nil)    t nil nil)
95    
96  (deftest compile-file.7  (deftest compile-file.7
97    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
98                       :external-format :default)                       :external-format :default)
99    t nil nil nil)    t nil nil)
100    
101  (deftest compile-file.8  (deftest compile-file.8
102    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
103                       :output-file #p"foo.fasl")                       :output-file #p"foo.fasl")
104    t nil nil nil)    t nil nil)
105    
106  (deftest compile-file.9  (deftest compile-file.9
107    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
108                       :print t)                       :print t)
109    t nil nil nil)    t nil nil)
110    
111  (deftest compile-file.10  (deftest compile-file.10
112    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
113                       :verbose t)                       :verbose t)
114    t nil nil nil)    t nil nil)
115    
116  (deftest compile-file.11  (deftest compile-file.11
117    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
118                       :print nil)                       :print nil)
119    t nil nil nil)    t nil nil)
120    
121  (deftest compile-file.12  (deftest compile-file.12
122    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
123                       :verbose nil)                       :verbose nil)
124    t nil nil nil)    t nil nil)
125    
126  ;;; A file stream is a pathname designator  ;;; A file stream is a pathname designator
127  (deftest compile-file.13  (deftest compile-file.13
128    (with-open-file (s "compile-file-test-file.lsp" :direction :input)    (with-open-file (s "compile-file-test-file.lsp" :direction :input)
129                    (compile-file-test s 'compile-file-test-fun.1))                    (compile-file-test s 'compile-file-test-fun.1))
130    t nil nil nil)    t nil nil)
131    
132  (deftest compile-file.14  (deftest compile-file.14
133    (let ((s (open "foo.fasl" :direction :output :if-exists :supersede    (let ((s (open "foo.fasl" :direction :output :if-exists :supersede
# Line 131  Line 135 
135      (close s)      (close s)
136      (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1      (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
137                         :output-file s))                         :output-file s))
138    t nil nil nil)    t nil nil)
139    
140  ;;; Add tests for *compile-file-truename*, *compile-file-pathname*  ;;; Add tests for *compile-file-truename*, *compile-file-pathname*
141    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26