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

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

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

revision 1.3 by pfdietz, Sat Jan 17 21:27:09 2004 UTC revision 1.4 by pfdietz, Thu Sep 2 11:47:20 2004 UTC
# Line 31  Line 31 
31          always (eq x (pathname x)))          always (eq x (pathname x)))
32    t)    t)
33    
34    (deftest pathname.6
35      (equalt #p"ansi-aux.lsp"
36              (pathname (make-array 12 :initial-contents "ansi-aux.lsp"
37                                    :element-type 'base-char)))
38      t)
39    
40    (deftest pathname.7
41      (equalt #p"ansi-aux.lsp"
42              (pathname (make-array 15 :initial-contents "ansi-aux.lspXXX"
43                                    :element-type 'base-char
44                                    :fill-pointer 12)))
45      t)
46    
47    (deftest pathname.8
48      (equalt #p"ansi-aux.lsp"
49              (pathname (make-array 12 :initial-contents "ansi-aux.lsp"
50                                    :element-type 'base-char
51                                    :adjustable t)))
52      t)
53    
54    (deftest pathname.9
55      (equalt #p"ansi-aux.lsp"
56              (pathname (make-array 15 :initial-contents "ansi-aux.lspXXX"
57                                    :element-type 'character
58                                    :fill-pointer 12)))
59      t)
60    
61    (deftest pathname.10
62      (equalt #p"ansi-aux.lsp"
63              (pathname (make-array 12 :initial-contents "ansi-aux.lsp"
64                                    :element-type 'character
65                                    :adjustable t)))
66      t)
67    
68    (deftest pathname.11
69      (loop for etype in '(standard-char base-char character)
70            collect
71            (equalt #p"ansi-aux.lsp"
72                    (pathname
73                     (let* ((s (make-array 15 :initial-contents "XXansi-aux.lspX"
74                                           :element-type etype)))
75                       (make-array 12 :element-type etype
76                                   :displaced-to s
77                                   :displaced-index-offset 2)))))
78      (t t t))
79    
80  ;;; Error tests  ;;; Error tests
81    
82  (deftest pathname.error.1  (deftest pathname.error.1

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

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