Changeset 10065


Ignore:
Timestamp:
09/29/05 17:18:05 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp

    r10064 r10065  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.37 2005-09-29 13:03:44 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.38 2005-09-29 17:18:05 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    140140  (equal (make-pathname :name "foo" :type "bar" :version nil)
    141141         (make-pathname :name "foo" :type "bar" :version :newest))
    142   #+(or clisp cmu lispworks) nil
    143   #-(or clisp cmu lispworks) t)
     142  #+(or clisp lispworks) nil
     143  #-(or clisp lispworks) t)
    144144
    145145(deftest sxhash.1
     
    518518(deftest logical.12
    519519  (check-namestring #p"effluvia:foo.bar.newest"
    520                     #-(or allegro cmu) "EFFLUVIA:FOO.BAR.NEWEST"
    521                     #+allegro "effluvia:foo.bar"
    522                     #+cmu "EFFLUVIA:FOO.BAR")
     520                    #-allegro "EFFLUVIA:FOO.BAR.NEWEST"
     521                    #+allegro "effluvia:foo.bar")
    523522  t)
    524523
     
    661660  t)
    662661
    663 ;; This amounts to the same thing as PARSE-NAMESTRING.6, since DEFAULT-PATHNAME
    664 ;; defaults to the value of *DEFAULT-PATHNAME-DEFAULTS*.
    665662(deftest parse-namestring.7
    666   (let ((*default-pathname-defaults* #p"effluvia:bar"))
     663  (let* ((*default-pathname-defaults* (logical-pathname "EFFLUVIA:"))
     664         (pathname (parse-namestring "foo.bar")))
    667665    #-allegro
    668     (check-logical-pathname (parse-namestring "foo" nil)
    669                             "EFFLUVIA" '(:absolute) "FOO" nil nil)
     666    (check-logical-pathname pathname "EFFLUVIA" '(:absolute) "FOO" "BAR" nil)
    670667    #+allegro
    671     (check-logical-pathname (parse-namestring "foo" nil #p"effluvia:bar")
    672                             "effluvia" nil "foo" nil nil))
     668    (check-logical-pathname pathname "effluvia" nil "foo" "bar" nil))
     669  t)
     670
     671(deftest parse-namestring.8
     672  (let* ((*default-pathname-defaults* #p"effluvia:bar")
     673         (pathname (parse-namestring "foo" nil)))
     674    #-allegro
     675    (check-logical-pathname pathname "EFFLUVIA" '(:absolute) "FOO" nil nil)
     676    #+allegro
     677    (check-logical-pathname pathname "effluvia" nil "foo" nil nil))
    673678  t)
    674679
Note: See TracChangeset for help on using the changeset viewer.