Changeset 10073


Ignore:
Timestamp:
10/03/05 13:35:12 (16 years ago)
Author:
piso
Message:

ENOUGH-NAMESTRING.[1-3]

File:
1 edited

Legend:

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

    r10066 r10073  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.39 2005-09-29 17:24:58 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.40 2005-10-03 13:35:12 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    933933  t)
    934934
     935(deftest enough-namestring.1
     936  (equal (enough-namestring #p"/foo" #p"/") "foo")
     937  t)
     938
     939(deftest enough-namestring.2
     940  (equal (enough-namestring #p"foo/bar" #p"foo") "foo/bar")
     941  t)
     942
     943(deftest enough-namestring.3
     944  (equal (enough-namestring #p"foo/bar" #p"foo/") "bar")
     945  t)
     946
    935947;; The following tests are adapted from SBCL's pathnames.impure.lisp.
    936948(setf (logical-pathname-translations "demo0")
Note: See TracChangeset for help on using the changeset viewer.