Changeset 15935 in project


Ignore:
Timestamp:
09/17/09 11:01:00 (10 years ago)
Author:
felix winkelmann
Message:

updated path tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/tests/path-tests.scm

    r15819 r15935  
    2929(test "./" (normalize-pathname "" 'unix))
    3030(test ".\\" (normalize-pathname "" 'windows))
    31 (test "/../" (normalize-pathname "/../"))
    32 (test "/." (normalize-pathname "/abc/../."))
     31(test "\\..\\" (normalize-pathname "/../"))
     32(test "\\." (normalize-pathname "/abc/../."))
    3333(test "/." (normalize-pathname "/" 'unix))
    3434(test "/." (normalize-pathname "/./" 'unix))
     
    6666
    6767(test '(#f "/" (".")) (receive (decompose-directory "/.//")))
    68 (test '(#f "/" (".")) (receive (decompose-directory (normalize-pathname "/.//"))))
     68(test '(#f "\\" (".")) (receive (decompose-directory (normalize-pathname "/.//"))))
    6969(test '(#f "/" #f) (receive (decompose-directory "///\\///")))
    7070(test '(#f "/" ("foo")) (receive (decompose-directory "//foo//")))
Note: See TracChangeset for help on using the changeset viewer.