(module unzip mzscheme
  (require (planet "io.ss" ("dherman" "io.plt" 1 1)))
  (require (planet "file.ss" ("dherman" "io.plt" 1 1)))
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 1)))
  (require (planet "util.ss" ("schematics" "schemeunit.plt" 1)))
  (require (planet "text-ui.ss" ("schematics" "schemeunit.plt" 1)))
  (require (lib "etc.ss"))
  (require "../../zip.ss")
  (require "../../unzip.ss")
  (require "util.ss")

  (define test:unzip
    (make-test-suite
     "unzip tests"
     (make-test-case ""
                     (in-new-directory "sandbox"
                       (in-new-directory "expected"
                         (build-dir-tree ex:multiple-files/subdirectories))
                       (let ([zip-file-list (directory-list/all "expected")])
                         (fprintf (current-error-port) "~v~n" zip-file-list)
                         (in-new-directory "actual"
                           ())))
                     (assert-true #t))
     ))

  (define unzip-tests
    (make-test-suite
     "All unzip.ss tests"
     test:unzip
     ))

  (test/text-ui unzip-tests)

  (provide unzip-tests))