Raymond Toy pushed to branch issue-135-unix-namestring-dot at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • tests/issues.lisp
    ... ... @@ -579,3 +579,9 @@
    579 579
     	with user-info = (unix:unix-getpwuid uid)
    
    580 580
     	while user-info
    
    581 581
     	finally (assert-false user-info)))
    
    582
    +
    
    583
    +(define-test issue.135
    
    584
    +    (:tag :issues)
    
    585
    +  (assert-equalp "." (ext:unix-namestring "."))
    
    586
    +  (assert-equalp "./abc.txt" (ext:unix-namestring "abc.txt"))
    
    587
    +  (assert-equalp "./abc/def/foo.txt" (ext:unix-namestring "abc/def/foo.txt")))