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

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

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

revision 1.4 by pfdietz, Sun Sep 12 12:08:49 2004 UTC revision 1.5 by pfdietz, Sun Sep 12 13:35:05 2004 UTC
# Line 10  Line 10 
10          always (eql x (logical-pathname x)))          always (eql x (logical-pathname x)))
11    t)    t)
12    
13    (deftest logical-pathname.2
14      (notnot-mv (typep (logical-pathname "CLTEST:FOO") 'logical-pathname))
15      t)
16    
17    (deftest logical-pathname.3
18      (let ((name "CLTEST:TEMP.DAT.NEWEST"))
19        (with-open-file
20         (s (logical-pathname name)
21            :direction :output
22            :if-exists :supersede
23            :if-does-not-exist :create)
24         (or (equalt (logical-pathname s) (logical-pathname name))
25             (list (logical-pathname s) (logical-pathname name)))))
26      t)
27    
28    
29  ;;; Error tests  ;;; Error tests
30    
# Line 35  Line 50 
50     type-error)     type-error)
51    t)    t)
52    
53    (deftest logical-pathname.error.4
54      (signals-error
55       (with-open-stream
56        (is (make-concatenated-stream))
57        (with-open-stream
58         (os (make-broadcast-stream))
59         (with-open-stream
60          (s (make-two-way-stream is os))
61          (logical-pathname s))))
62       type-error)
63      t)
64    
65    (deftest logical-pathname.error.5
66      (signals-error
67       (with-open-stream
68        (is (make-concatenated-stream))
69        (with-open-stream
70         (os (make-broadcast-stream))
71         (with-open-stream
72          (s (make-echo-stream is os))
73          (logical-pathname s))))
74       type-error)
75      t)
76    
77    (deftest logical-pathname.error.6
78      (signals-error (with-open-stream (s (make-broadcast-stream)) (logical-pathname s)) type-error)
79      t)
80    
81    (deftest logical-pathname.error.7
82      (signals-error (with-open-stream (s (make-concatenated-stream)) (logical-pathname s)) type-error)
83      t)
84    
85    (deftest logical-pathname.error.8
86      (signals-error (with-open-stream (s (make-string-input-stream "foo"))
87                                       (logical-pathname s)) type-error)
88      t)
89    
90    (deftest logical-pathname.error.9
91      (signals-error (with-output-to-string (s) (logical-pathname s)) type-error)
92      t)
93    
94    (deftest logical-pathname.error.10
95      (signals-error (logical-pathname "CLROOT:%") type-error)
96      t)

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