tests/file-paths-unix.lisp

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- iolib.pathnames test suite.
   4 ;;;
   5
   6 (in-package :iolib-tests)
   7
   8 (in-suite :iolib.pathnames)
   9
  10 (defmacro is-file-path (path (&rest components))
  11   (with-gensyms (p)
  12     `(is-true
  13       (let ((,p ,path))
  14         (and (eql (file-path-host ,p) :unspecific)
  15              (eql (file-path-device ,p) :unspecific)
  16              (and (= (length ',components)
  17                      (length (file-path-components ,p)))
  18                   (every #'(lambda (x y)
  19                              (typecase x
  20                                (keyword (eql x y))
  21                                (string (string= x y))))
  22                          (file-path-components ,p)
  23                          ',components)))))))
  24 \f
  25
  26 (test (file-path.null.1 :compile-at :definition-time)
  27   (signals invalid-file-path
  28     (parse-file-path "")))
  29
  30 (test (file-path.null.2 :compile-at :definition-time)
  31   (signals invalid-file-path
  32     (parse-file-path "" :expand-user t)))
  33 \f
  34
  35 (test (file-path.root.1 :compile-at :definition-time)
  36   (is-file-path (parse-file-path "/")
  37                 (:root)))
  38
  39 (test (file-path.root.2 :compile-at :definition-time)
  40   (is-file-path (parse-file-path "/" :expand-user t)
  41                 (:root)))
  42 \f
  43
  44 (test (file-path.relative.1 :compile-at :definition-time)
  45   (is-file-path (parse-file-path "a")
  46                 ("a")))
  47
  48 (test (file-path.relative.2 :compile-at :definition-time)
  49   (is-file-path (parse-file-path "a" :expand-user t)
  50                 ("a")))
  51
  52 (test (file-path.relative.3 :compile-at :definition-time)
  53   (is-file-path (parse-file-path "a/")
  54                 ("a")))
  55
  56 (test (file-path.relative.4 :compile-at :definition-time)
  57   (is-file-path (parse-file-path "a/" :expand-user t)
  58                 ("a")))
  59
  60 (test (file-path.relative.5 :compile-at :definition-time)
  61   (is-file-path (parse-file-path "a/b")
  62                 ("a" "b")))
  63
  64 (test (file-path.relative.6 :compile-at :definition-time)
  65   (is-file-path (parse-file-path "a/b" :expand-user t)
  66                 ("a" "b")))
  67 \f
  68
  69 (test (file-path.absolute.1 :compile-at :definition-time)
  70   (is-file-path (parse-file-path "/a")
  71                 (:root "a")))
  72
  73 (test (file-path.absolute.2 :compile-at :definition-time)
  74   (is-file-path (parse-file-path "/a" :expand-user t)
  75                 (:root "a")))
  76
  77 (test (file-path.absolute.3 :compile-at :definition-time)
  78   (is-file-path (parse-file-path "/a/")
  79                 (:root "a")))
  80
  81 (test (file-path.absolute.4 :compile-at :definition-time)
  82   (is-file-path (parse-file-path "/a/" :expand-user t)
  83                 (:root "a")))
  84
  85 (test (file-path.absolute.5 :compile-at :definition-time)
  86   (is-file-path (parse-file-path "/a/b")
  87                 (:root "a" "b")))
  88
  89 (test (file-path.absolute.6 :compile-at :definition-time)
  90   (is-file-path (parse-file-path "/a/b" :expand-user t)
  91                 (:root "a" "b")))
  92 \f
  93
  94 (test (file-path.expand-user.1 :compile-at :definition-time)
  95   (is-file-path (parse-file-path "~root" :expand-user nil)
  96                 ("~root")))
  97
  98 (test (file-path.expand-user.2 :compile-at :definition-time)
  99   (is-file-path (parse-file-path "~root" :expand-user t)
 100                 (:root "root")))
 101
 102 (test (file-path.expand-user.3 :compile-at :definition-time)
 103   (is-file-path (parse-file-path "/~root")
 104                 (:root "~root")))
 105
 106 (test (file-path.expand-user.4 :compile-at :definition-time)
 107   (is-file-path (parse-file-path "/~root" :expand-user t)
 108                 (:root "~root")))
 109
 110 (test (file-path.expand-user.5 :compile-at :definition-time)
 111   (is-file-path (parse-file-path "~root/a" :expand-user nil)
 112                 ("~root" "a")))
 113
 114 (test (file-path.expand-user.6 :compile-at :definition-time)
 115   (is-file-path (parse-file-path "~root/a" :expand-user t)
 116                 (:root "root" "a")))
 117 \f
 118
 119 (test (file-path.namestring.1 :compile-at :definition-time)
 120   (is (equal "/" (file-path-namestring (file-path "/")))))
 121
 122 (test (file-path.namestring.2 :compile-at :definition-time)
 123   (is (equal "/." (file-path-namestring (file-path "/.")))))
 124
 125 (test (file-path.namestring.3 :compile-at :definition-time)
 126   (is (equal "/.." (file-path-namestring (file-path "/..")))))
 127
 128 (test (file-path.namestring.4 :compile-at :definition-time)
 129   (is (equal "." (file-path-namestring (file-path ".")))))
 130
 131 (test (file-path.namestring.5 :compile-at :definition-time)
 132   (is (equal "." (file-path-namestring (file-path "./")))))
 133
 134 (test (file-path.namestring.6 :compile-at :definition-time)
 135   (is (equal "../." (file-path-namestring (file-path "../.")))))
 136
 137 (test (file-path.namestring.7 :compile-at :definition-time)
 138   (is (equal "../." (file-path-namestring (file-path ".././")))))
 139
 140 (test (file-path.namestring.8 :compile-at :definition-time)
 141   (is (equal "../.." (file-path-namestring (file-path "../..")))))
 142
 143 (test (file-path.namestring.9 :compile-at :definition-time)
 144   (is (equal "a/./b" (file-path-namestring (file-path "a/./b")))))
 145
 146 (test (file-path.namestring.10 :compile-at :definition-time)
 147   (is (equal "a/../b" (file-path-namestring (file-path "a/../b")))))
 148 \f
 149
 150 (test (file-path.directory.1 :compile-at :definition-time)
 151   (is (equal '(:root) (file-path-directory (file-path "/")))))
 152
 153 (test (file-path.directory.2 :compile-at :definition-time)
 154   (is (equal '(:root) (file-path-directory (file-path "/.")))))
 155
 156 (test (file-path.directory.3 :compile-at :definition-time)
 157   (is (equal '(:root) (file-path-directory (file-path "/..")))))
 158
 159 (test (file-path.directory.4 :compile-at :definition-time)
 160   (is (equal '(".") (file-path-directory (file-path ".")))))
 161
 162 (test (file-path.directory.5 :compile-at :definition-time)
 163   (is (equal '(".") (file-path-directory (file-path "./")))))
 164
 165 (test (file-path.directory.6 :compile-at :definition-time)
 166   (is (equal '(".") (file-path-directory (file-path "..")))))
 167
 168 (test (file-path.directory.7 :compile-at :definition-time)
 169   (is (equal '(".") (file-path-directory (file-path "../")))))
 170
 171 (test (file-path.directory.8 :compile-at :definition-time)
 172   (is (equal '("..") (file-path-directory (file-path "../.")))))
 173
 174 (test (file-path.directory.9 :compile-at :definition-time)
 175   (is (equal '("..") (file-path-directory (file-path ".././")))))
 176
 177 (test (file-path.directory.10 :compile-at :definition-time)
 178   (is (equal '("..") (file-path-directory (file-path "../..")))))
 179
 180 (test (file-path.directory.11 :compile-at :definition-time)
 181   (is (equal '("..") (file-path-directory (file-path "../../")))))
 182
 183 (test (file-path.directory.12 :compile-at :definition-time)
 184   (is (equal '("a" ".") (file-path-directory (file-path "a/./b")))))
 185
 186 (test (file-path.directory.13 :compile-at :definition-time)
 187   (is (equal '("a" "..") (file-path-directory (file-path "a/../b")))))
 188 \f
 189
 190 (test (file-path.directory-namestring.1 :compile-at :definition-time)
 191   (is (equal "/" (file-path-directory (file-path "/") :namestring t))))
 192
 193 (test (file-path.directory-namestring.2 :compile-at :definition-time)
 194   (is (equal "/" (file-path-directory (file-path "/.") :namestring t))))
 195
 196 (test (file-path.directory-namestring.3 :compile-at :definition-time)
 197   (is (equal "/" (file-path-directory (file-path "/..") :namestring t))))
 198
 199 (test (file-path.directory-namestring.4 :compile-at :definition-time)
 200   (is (equal "." (file-path-directory (file-path ".") :namestring t))))
 201
 202 (test (file-path.directory-namestring.5 :compile-at :definition-time)
 203   (is (equal "." (file-path-directory (file-path "./") :namestring t))))
 204
 205 (test (file-path.directory-namestring.6 :compile-at :definition-time)
 206   (is (equal "." (file-path-directory (file-path "..") :namestring t))))
 207
 208 (test (file-path.directory-namestring.7 :compile-at :definition-time)
 209   (is (equal "." (file-path-directory (file-path "../") :namestring t))))
 210
 211 (test (file-path.directory-namestring.8 :compile-at :definition-time)
 212   (is (equal ".." (file-path-directory (file-path "../.") :namestring t))))
 213
 214 (test (file-path.directory-namestring.9 :compile-at :definition-time)
 215   (is (equal ".." (file-path-directory (file-path ".././") :namestring t))))
 216
 217 (test (file-path.directory-namestring.10 :compile-at :definition-time)
 218   (is (equal ".." (file-path-directory (file-path "../..") :namestring t))))
 219
 220 (test (file-path.directory-namestring.11 :compile-at :definition-time)
 221   (is (equal ".." (file-path-directory (file-path "../../") :namestring t))))
 222
 223 (test (file-path.directory-namestring.12 :compile-at :definition-time)
 224   (is (equal "a/." (file-path-directory (file-path "a/./b") :namestring t))))
 225
 226 (test (file-path.directory-namestring.13 :compile-at :definition-time)
 227   (is (equal "a/.." (file-path-directory (file-path "a/../b") :namestring t))))
 228 \f
 229
 230 (test (file-path.file.1 :compile-at :definition-time)
 231   (is (equal "." (file-path-file (file-path "/")))))
 232
 233 (test (file-path.file.2 :compile-at :definition-time)
 234   (is (equal "." (file-path-file (file-path "/.")))))
 235
 236 (test (file-path.file.3 :compile-at :definition-time)
 237   (is (equal ".." (file-path-file (file-path "/..")))))
 238
 239 (test (file-path.file.4 :compile-at :definition-time)
 240   (is (equal "." (file-path-file (file-path ".")))))
 241
 242 (test (file-path.file.5 :compile-at :definition-time)
 243   (is (equal "." (file-path-file (file-path "./")))))
 244
 245 (test (file-path.file.6 :compile-at :definition-time)
 246   (is (equal ".." (file-path-file (file-path "..")))))
 247
 248 (test (file-path.file.7 :compile-at :definition-time)
 249   (is (equal ".." (file-path-file (file-path "../")))))
 250
 251 (test (file-path.file.8 :compile-at :definition-time)
 252   (is (equal "." (file-path-file (file-path "../.")))))
 253
 254 (test (file-path.file.9 :compile-at :definition-time)
 255   (is (equal "." (file-path-file (file-path ".././")))))
 256
 257 (test (file-path.file.10 :compile-at :definition-time)
 258   (is (equal ".." (file-path-file (file-path "../..")))))
 259
 260 (test (file-path.file.11 :compile-at :definition-time)
 261   (is (equal ".." (file-path-file (file-path "../../")))))
 262
 263 (test (file-path.file.12 :compile-at :definition-time)
 264   (is (equal "b" (file-path-file (file-path "a/./b")))))
 265
 266 (test (file-path.file.13 :compile-at :definition-time)
 267   (is (equal "b" (file-path-file (file-path "a/../b")))))
 268 \f
 269
 270 (test (file-path.file-name.1 :compile-at :definition-time)
 271   (is (equal "." (file-path-file-name (file-path "/")))))
 272
 273 (test (file-path.file-name.2 :compile-at :definition-time)
 274   (is (equal "." (file-path-file-name (file-path ".")))))
 275
 276 (test (file-path.file-name.3 :compile-at :definition-time)
 277   (is (equal "." (file-path-file-name (file-path "./")))))
 278
 279 (test (file-path.file-name.4 :compile-at :definition-time)
 280   (is (equal "." (file-path-file-name (file-path "..")))))
 281
 282 (test (file-path.file-name.5 :compile-at :definition-time)
 283   (is (equal "." (file-path-file-name (file-path "../")))))
 284
 285 (test (file-path.file-name.6 :compile-at :definition-time)
 286   (is (equal "a" (file-path-file-name (file-path "a")))))
 287
 288 (test (file-path.file-name.7 :compile-at :definition-time)
 289   (is (equal "a" (file-path-file-name (file-path "a.")))))
 290
 291 (test (file-path.file-name.8 :compile-at :definition-time)
 292   (is (equal ".a" (file-path-file-name (file-path ".a")))))
 293
 294 (test (file-path.file-name.9 :compile-at :definition-time)
 295   (is (equal "a" (file-path-file-name (file-path "a.b")))))
 296 \f
 297
 298 (test (file-path.file-type.1 :compile-at :definition-time)
 299   (is (eql nil (file-path-file-type (file-path "/")))))
 300
 301 (test (file-path.file-type.2 :compile-at :definition-time)
 302   (is (eql nil (file-path-file-type (file-path ".")))))
 303
 304 (test (file-path.file-type.3 :compile-at :definition-time)
 305   (is (eql nil (file-path-file-type (file-path "./")))))
 306
 307 (test (file-path.file-type.4 :compile-at :definition-time)
 308   (is (eql nil (file-path-file-type (file-path "..")))))
 309
 310 (test (file-path.file-type.5 :compile-at :definition-time)
 311   (is (eql nil (file-path-file-type (file-path "../")))))
 312
 313 (test (file-path.file-type.6 :compile-at :definition-time)
 314   (is (eql nil (file-path-file-type (file-path "a")))))
 315
 316 (test (file-path.file-type.7 :compile-at :definition-time)
 317   (is (eql nil (file-path-file-type (file-path "a.")))))
 318
 319 (test (file-path.file-type.8 :compile-at :definition-time)
 320   (is (eql nil (file-path-file-type (file-path ".a")))))
 321
 322 (test (file-path.file-type.9 :compile-at :definition-time)
 323   (is (equal "b" (file-path-file-type (file-path "a.b")))))