Changeset 15937 in project for chicken


Ignore:
Timestamp:
09/17/09 12:39:48 (10 years ago)
Author:
felix
Message:

another path-test fix

File:
1 edited

Legend:

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

    r15936 r15937  
    6666
    6767(test '(#f "/" (".")) (receive (decompose-directory "/.//")))
    68 (test '(#f "\\" (".")) (receive (decompose-directory (normalize-pathname "/.//"))))
     68(test '(#f "\\" (".")) (receive (decompose-directory (normalize-pathname "/.//" 'windows))))
    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.