; -*- Scheme -*-
;
; $Id: pathnamet07.scm,v 1.1 1998/03/16 07:59:17 foner Exp $
;
;-------------
;
; Regression tests for UNIX:PATHNAME->STRING:TEST
;
;-------------

(require 'pathname:test:equal)
(require 'unix:pathname->string)
(require 'string->unix:pathname)

;------------

(define unix:pathname->string:test
  (lambda ()

    (pathname:test:equal
     'unix:pathname->string-a
     (unix:pathname->string (string->unix:pathname "/usr/me/scm/pathname07.scm"))
     "/usr/me/scm/pathname07.scm")

    (pathname:test:equal
     'unix:pathname->string-b
     (unix:pathname->string (string->unix:pathname "usr/me/scm/pathname07.scm"))
     "usr/me/scm/pathname07.scm")

    (pathname:test:equal
     'unix:pathname->string-c
     (unix:pathname->string (string->unix:pathname "/usr/../me/scm/pathname07.scm"))
     "/usr/../me/scm/pathname07.scm")

    (pathname:test:equal
     'unix:pathname->string-d
     (unix:pathname->string (string->unix:pathname "/usr/./me/scm/pathname07.scm"))
     "/usr/me/scm/pathname07.scm")

    (pathname:test:equal
     'unix:pathname->string-e
     (unix:pathname->string (string->unix:pathname "/usr/./././me/scm/pathname07.scm"))
     "/usr/me/scm/pathname07.scm")

    (pathname:test:equal
     'unix:pathname->string-f
     (unix:pathname->string (string->unix:pathname "/usr////me/scm/pathname07.scm"))
     "/usr/me/scm/pathname07.scm")

    ))

; eof
