; -*- Scheme -*-
;
; $Id: pathnamet00.scm,v 1.1 1998/03/16 07:59:15 foner Exp $
;
;-------------
;
; Main regression tests for pathnames package.
;
; Call PATHNAME:TEST to apply all the regression tests.
;
;------------

(require 'substring->unix:pathname:directory:test)
(require 'unix:pathname->string:test)

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

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

; TO DO :- add more regression tests.

; eof
