/[gcl]/gcl/ansi-tests/make-pathname.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-pathname.lsp

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

revision 1.1 by pfdietz, Sun Nov 30 04:36:42 2003 UTC revision 1.2 by pfdietz, Sun Nov 30 19:12:31 2003 UTC
# Line 67  Line 67 
67  (deftest make-pathname.8  (deftest make-pathname.8
68    (make-pathname-test :version :wild)    (make-pathname-test :version :wild)
69    t)    t)
70    
71    (deftest make-pathname.9
72      (make-pathname-test :defaults *default-pathname-defaults*)
73      t)
74    
75    (deftest make-pathname.10
76      (make-pathname-test :defaults (make-pathname :name "foo" :type "bar"))
77      t)
78    
79    (deftest make-pathname.11
80      (make-pathname-test :version :newest)
81      t)
82    
83    (deftest make-pathname.12
84      (make-pathname-test :case :local)
85      t)
86    
87    (deftest make-pathname.13
88      (make-pathname-test :case :common)
89      t)
90    
91    ;;; Various constraints on :directory
92    
93    (deftest make-pathname-error-absolute-up
94      (classify-error (directory (make-pathname :directory '(:absolute :up))))
95      file-error)
96    
97    (deftest make-pathname-error-absolute-back
98      (classify-error (directory (make-pathname :directory '(:absolute :back))))
99      file-error)
100    
101    ;; The next test is correct, but was causing very large amounts of time to be spent
102    ;; in buggy implementations
103    #|
104    (deftest make-pathname-error-absolute-wild-inferiors-up
105      (classify-error (directory (make-pathname :directory '(:absolute :wild-inferiors :up))))
106      file-error)
107    |#
108    
109    (deftest make-pathname-error-relative-wild-inferiors-up
110      (classify-error (length (directory (make-pathname :directory '(:relative :wild-inferiors :up)))))
111      file-error)
112    
113    (deftest make-pathname-error-absolute-wild-inferiors-back
114      (classify-error (directory (make-pathname :directory '(:absolute :wild-inferiors :back))))
115      file-error)
116    
117    (deftest make-pathname-error-relative-wild-inferiors-back
118      (classify-error (directory (make-pathname :directory '(:relative :wild-inferiors :back))))
119      file-error)
120    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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