;;;; directory-utils-omnibus-test.scm  -*- Scheme -*-
;;;; Kon Lovett, Mar '24

(import test)
(import (test-utils gloss) (only (chicken format) format))

(cond-expand
  (compiling
    (gloss)
    (gloss "*****")
    (gloss "* Expect Deprecation Warnings")
    (gloss "*****") )
  (else) )

(test-begin "Directory Utils (omnibus)")

(import directory-utils)

;;;

(test-group "Exports Bound"
  (test-assert (procedure? directory-utility-stack))
  (test-assert (procedure? push-directory))
  (test-assert (procedure? pop-directory))
  (test-assert (procedure? pop-toplevel-directory))
  (test-assert (procedure? directory-fold))
  (test-assert (procedure? create-pathname-directory))
  (test-assert (procedure? make-program-filename))
  (test-assert (procedure? make-shell-filename))
  (test-assert (procedure? file-exists-in-directory?))
  (test-assert (procedure? find-file-pathnames))
  (test-assert (procedure? find-program-pathnames))
  (test-assert (procedure? find-command-pathnames))
  (test-assert (procedure? which-command-pathname))
  (test-assert (procedure? which-command-pathnames))
  (test-assert (procedure? dot-pathname?))
  (test-assert (procedure? dot-dirname?))
  (test-assert (procedure? dot-filename?))
  (test-assert (procedure? remove-dotfiles))
  (test-assert (procedure? pathname?))
  (test-assert (procedure? check-pathname))
  (test-assert (procedure? error-pathname))
  (test-assert (procedure? filename?))
  (test-assert (procedure? check-filename))
  (test-assert (procedure? error-filename))
  (test-assert (procedure? dirname?))
  (test-assert (procedure? check-dirname))
  (test-assert (procedure? error-dirname))
  (test-assert (procedure? check-directory))
  (test-assert (procedure? error-directory))
)

;;;

(test-end "Directory Utils (omnibus)")

(test-exit)