tests/pathnames.impure.lisp

   1 ;;;; miscellaneous tests of pathname-related stuff
   2
   3 ;;;; This file is naturally impure because we mess with
   4 ;;;; LOGICAL-PATHNAME-TRANSLATIONS.
   5
   6 ;;;; This software is part of the SBCL system. See the README file for
   7 ;;;; more information.
   8 ;;;;
   9 ;;;; While most of SBCL is derived from the CMU CL system, the test
  10 ;;;; files (like this one) were written from scratch after the fork
  11 ;;;; from CMU CL.
  12 ;;;;
  13 ;;;; This software is in the public domain and is provided with
  14 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
  15 ;;;; more information.
  16
  17 (in-package "CL-USER")
  18
  19 (setf (logical-pathname-translations "foo")
  20       '(("REL;*.*.*"       "/tmp/")
  21         ("MAIL;**;*.MAIL"  "/tmp/subdir/")
  22         ("PROGGIES;*"      "/tmp/")))
  23
  24 (assert (string= (format nil
  25                          "~S"
  26                          (translate-logical-pathname "foo:proggies;save"))
  27                  "#P\"/tmp/save\""))
  28
  29 (compile-file-pathname "foo:proggies;save")
  30
  31 ;;; success
  32 (quit :unix-status 104)