tests/file-paths-unix.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-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 (directory name))
  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              (equal (file-path-directory ,p) ',directory)
  17              (equal (file-path-name ,p) ',name))))))
  18
  19 (test parse-file-path.1
  20   (is-file-path (parse-file-path "")
  21                 ((:relative) nil)))
  22
  23 (test parse-file-path.2
  24   (is-file-path (parse-file-path "" :as-directory t)
  25                 ((:relative) nil)))
  26
  27 (test parse-file-path.3
  28   (is-file-path (parse-file-path "" :expand-user t)
  29                 ((:relative) nil)))
  30
  31 (test parse-file-path.4
  32   (is-file-path (parse-file-path "" :as-directory t :expand-user t)
  33                 ((:relative) nil)))
  34
  35 (test parse-file-path.5
  36   (is-file-path (parse-file-path "a")
  37                 ((:relative) "a")))
  38
  39 (test parse-file-path.6
  40   (is-file-path (parse-file-path "a" :as-directory t)
  41                 ((:relative "a") nil)))
  42
  43 (test parse-file-path.7
  44   (is-file-path (parse-file-path "a" :expand-user t)
  45                 ((:relative) "a")))
  46
  47 (test parse-file-path.8
  48   (is-file-path (parse-file-path "a" :as-directory t :expand-user t)
  49                 ((:relative "a") nil)))
  50
  51 (test parse-file-path.9
  52   (is-file-path (parse-file-path "a/")
  53                 ((:relative "a") nil)))
  54
  55 (test parse-file-path.10
  56   (is-file-path (parse-file-path "a/" :as-directory t)
  57                 ((:relative "a") nil)))
  58
  59 (test parse-file-path.11
  60   (is-file-path (parse-file-path "a/" :expand-user t)
  61                 ((:relative "a") nil)))
  62
  63 (test parse-file-path.12
  64   (is-file-path (parse-file-path "a/" :as-directory t :expand-user t)
  65                 ((:relative "a") nil)))
  66
  67 (test parse-file-path.13
  68   (is-file-path (parse-file-path "/a")
  69                 ((:absolute) "a")))
  70
  71 (test parse-file-path.14
  72   (is-file-path (parse-file-path "/a" :as-directory t)
  73                 ((:absolute "a") nil)))
  74
  75 (test parse-file-path.15
  76   (is-file-path (parse-file-path "/a" :expand-user t)
  77                 ((:absolute) "a")))
  78
  79 (test parse-file-path.16
  80   (is-file-path (parse-file-path "/a" :as-directory t :expand-user t)
  81                 ((:absolute "a") nil)))
  82
  83 (test parse-file-path.17
  84   (is-file-path (parse-file-path "/a/")
  85                 ((:absolute "a") nil)))
  86
  87 (test parse-file-path.18
  88   (is-file-path (parse-file-path "/a/" :as-directory t)
  89                 ((:absolute "a") nil)))
  90
  91 (test parse-file-path.19
  92   (is-file-path (parse-file-path "/a/" :expand-user t)
  93                 ((:absolute "a") nil)))
  94
  95 (test parse-file-path.20
  96   (is-file-path (parse-file-path "/a/" :as-directory t :expand-user t)
  97                 ((:absolute "a") nil)))
  98
  99 (test parse-file-path.expand-user.1
 100   (is-file-path (parse-file-path "~root")
 101                 ((:relative) "~root")))
 102
 103 (test parse-file-path.expand-user.2
 104   (is-file-path (parse-file-path "~root" :as-directory t)
 105                 ((:relative "~root") nil)))
 106
 107 (test parse-file-path.expand-user.3
 108   (is-file-path (parse-file-path "~root" :expand-user t)
 109                 ((:absolute "root") nil)))
 110
 111 (test parse-file-path.expand-user.4
 112   (is-file-path (parse-file-path "~root" :as-directory t :expand-user t)
 113                 ((:absolute "root") nil)))
 114
 115 (test parse-file-path.expand-user.5
 116   (is-file-path (parse-file-path "/~root")
 117                 ((:absolute) "~root")))
 118
 119 (test parse-file-path.expand-user.6
 120   (is-file-path (parse-file-path "/~root" :as-directory t)
 121                 ((:absolute "~root") nil)))
 122
 123 (test parse-file-path.expand-user.7
 124   (is-file-path (parse-file-path "/~root" :expand-user t)
 125                 ((:absolute) "~root")))
 126
 127 (test parse-file-path.expand-user.8
 128   (is-file-path (parse-file-path "/~root" :as-directory t :expand-user t)
 129                 ((:absolute "~root") nil)))