Changeset 10049


Ignore:
Timestamp:
09/27/05 18:56:21 (16 years ago)
Author:
piso
Message:

Renumbering.

File:
1 edited

Legend:

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

    r10048 r10049  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.32 2005-09-27 18:45:44 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.33 2005-09-27 18:56:21 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    252252(pushnew 'physical.21 *expected-failures*)
    253253
    254 (deftest physical.21a
     254(deftest physical.22
    255255  (equal #p"." #p"")
    256256  nil)
    257257#+lispworks
    258 (pushnew 'physical.21a *expected-failures*)
     258(pushnew 'physical.22 *expected-failures*)
    259259
    260260;; #p"./"
    261261;; Trailing separator character means it's a directory.
    262 (deftest physical.22
     262(deftest physical.23
    263263  #+(or allegro abcl clisp cmu)
    264264  (check-physical-pathname #p"./" '(:relative) nil nil)
     
    268268  t)
    269269#+(or cmu lispworks)
    270 (pushnew 'physical.22 *expected-failures*)
    271 
    272 (deftest physical.22a
     270(pushnew 'physical.23 *expected-failures*)
     271
     272(deftest physical.24
    273273  (equal #p"./" #p"")
    274274  nil)
    275275#+lispworks
    276 (pushnew 'physical.22a *expected-failures*)
    277 
    278 
    279 (deftest physical.23
     276(pushnew 'physical.24 *expected-failures*)
     277
     278
     279(deftest physical.25
    280280  #-allegro
    281281  (check-physical-pathname (make-pathname :name "..") nil ".." nil)
     
    285285
    286286#-(or sbcl)
    287 (deftest physical.24
     287(deftest physical.26
    288288  (check-readable (make-pathname :name ".."))
    289289  t)
    290290#+(or clisp lispworks)
    291 (pushnew 'physical.24 *expected-failures*)
     291(pushnew 'physical.26 *expected-failures*)
    292292
    293293;; #p".."
    294 (deftest physical.25
     294(deftest physical.27
    295295  #+(or allegro)
    296296  (check-physical-pathname #p".." '(:relative :back) nil nil)
     
    308308  t)
    309309#+cmu
    310 (pushnew 'physical.25 *expected-failures*)
     310(pushnew 'physical.27 *expected-failures*)
    311311
    312312;; #p"../"
    313 (deftest physical.26
     313(deftest physical.28
    314314  #+allegro
    315315  (check-physical-pathname #p"../" '(:relative :back) nil nil)
     
    332332(pushnew 'lots-of-dots.2 *expected-failures*)
    333333
    334 (deftest physical.27
     334(deftest physical.29
    335335  (check-physical-pathname #p"foo.*" nil "foo" :wild)
    336336  t)
    337337
    338338#-sbcl
    339 (deftest physical.28
     339(deftest physical.30
    340340  #-allegro
    341341  (string= (namestring (make-pathname :name "..")) "..")
     
    344344  t)
    345345
    346 (deftest physical.29
     346(deftest physical.31
    347347  (string= (namestring (make-pathname :directory '(:relative :up)))
    348348           #+windows "..\\"
     
    605605
    606606;; ABCL doesn't implement this translation.
    607 (deftest translate-pathname.5a
     607(deftest translate-pathname.5
    608608  #-abcl
    609609  (equal (translate-pathname "foobar" "foo*" "")
     
    614614  t)
    615615
    616 (deftest translate-pathname.5
     616(deftest translate-pathname.6
    617617  (equal (translate-pathname "foo/bar" "*/bar" "*/baz") #p"foo/baz")
    618618  t)
    619619
    620 (deftest translate-pathname.6
     620(deftest translate-pathname.7
    621621  (equal (translate-pathname "bar/foo" "bar/*" "baz/*") #p"baz/foo")
    622622  t)
    623623
    624 (deftest translate-pathname.7
     624(deftest translate-pathname.8
    625625  (equal (translate-pathname "foo/bar" "*/bar" "*/baz") #p"foo/baz")
    626626  t)
    627627
    628 (deftest translate-pathname.8
     628(deftest translate-pathname.9
    629629  (string= (namestring (translate-pathname "test.txt" "*.txt" "*.text"))
    630630           "test.text")
    631631  t)
    632632
    633 (deftest translate-pathname.9
     633(deftest translate-pathname.10
    634634  (equal (translate-pathname "foo" "foo.*" "bar") #p"bar")
    635635  t)
    636636
    637 (deftest translate-pathname.10
     637(deftest translate-pathname.11
    638638  (equal (translate-pathname "foo" "foo.*" "bar.*") #p"bar")
    639639  t)
    640640
    641 (deftest translate-pathname.11
     641(deftest translate-pathname.12
    642642  (string= (namestring (translate-pathname "foo.bar" "*.*" "/usr/local/*.*"))
    643643           #-windows "/usr/local/foo.bar"
     
    645645  t)
    646646
    647 (deftest translate-pathname.12
     647(deftest translate-pathname.13
    648648  (equal (translate-pathname "foo.bar" "*.*" "/usr/local/*.*")
    649649         #p"/usr/local/foo.bar")
    650650  t)
    651651
    652 (deftest translate-pathname.13
     652(deftest translate-pathname.14
    653653  (check-translate-pathname '("/foo/" "/*/" "/usr/local/*/") "/usr/local/foo/")
    654654  t)
    655655
    656 (deftest translate-pathname.14
     656(deftest translate-pathname.15
    657657  (check-translate-pathname '("/foo/baz/bar.txt" "/**/*.*" "/usr/local/**/*.*")
    658658                            "/usr/local/foo/baz/bar.txt")
    659659  t)
    660660
    661 (deftest translate-pathname.15
     661(deftest translate-pathname.16
    662662  (equal (translate-pathname "/foo/" "/*/" "/usr/local/*/bar/") #p"/usr/local/foo/bar/")
    663663  t)
    664664
    665 (deftest translate-pathname.16
     665(deftest translate-pathname.17
    666666  (equal (translate-pathname "/foo/bar.txt" "/*/*.*" "/usr/local/*/*.*")
    667667         #P"/usr/local/foo/bar.txt")
     
    673673  nil)
    674674;; Since (pathname-match-p "/foo/bar.txt" "**/*.*" ) => NIL...
    675 (deftest translate-pathname.17
     675(deftest translate-pathname.18
    676676  #+(or clisp allegro abcl cmu lispworks)
    677677  ;; This seems to be the correct behavior.
     
    686686  (pathname-match-p "/foo/bar.txt" "/**/*.*")
    687687  t)
    688 (deftest translate-pathname.18
     688(deftest translate-pathname.19
    689689  (equal (translate-pathname "/foo/bar.txt" "/**/*.*" "/usr/local/**/*.*")
    690690         #p"/usr/local/foo/bar.txt")
     
    692692
    693693#-clisp
    694 (deftest translate-pathname.19
     694(deftest translate-pathname.20
    695695  (equal (translate-pathname "foo.bar" "/**/*.*" "/usr/local/") #p"/usr/local/foo.bar")
    696696  t)
Note: See TracChangeset for help on using the changeset viewer.