(library
  (era-functional-tests)
  (export register-era-tests)
  (import (chezscheme)
          (disk-units)
          (functional-tests)
          (era-xml)
          (fmt fmt)
          (process)
          (scenario-string-constants)
          (temp-file)
          (srfi s8 receive))

  (define-tool era-check)
  (define-tool era-restore)
  (define-tool era-dump)

  (define-syntax with-era-xml
    (syntax-rules ()
      ((_ (v) b1 b2 ...)
       (with-temp-file-containing ((v "era.xml" (fmt #f (generate-xml 128 256 32 4))))
                                  b1 b2 ...))))

  (define-syntax with-valid-metadata
    (syntax-rules ()
      ((_ (md) b1 b2 ...)
       (with-temp-file-sized ((md "era.bin" (meg 4)))
                             (with-cache-xml (xml)
                                             (era-restore "-i" xml "-o" md)
                                             b1 b2 ...)))))

  (define-syntax with-corrupt-metadata
    (syntax-rules ()
      ((_ (md) b1 b2 ...)
       (with-temp-file-sized ((md "era.bin" (meg 4)))
                             b1 b2 ...))))

  (define-syntax with-empty-metadata
    (syntax-rules ()
      ((_ (md) b1 b2 ...)
       (with-temp-file-sized ((md "era.bin" (meg 4)))
                             b1 b2 ...))))

  (define (register-era-tests) #t)

  ;;;-----------------------------------------------------------
  ;;; era_check scenarios
  ;;;-----------------------------------------------------------
  (define-scenario (era-check v)
		   "era_check -V"
                   (receive (stdout _) (era-check "-V")
                            (assert-equal tools-version stdout)))

  (define-scenario (era-check version)
                   "era_check --version"
                   (receive (stdout _) (era-check "--version")
                            (assert-equal tools-version stdout)))

  (define-scenario (era-check h)
                   "era_check -h"
                   (receive (stdout _) (era-check "-h")
                            (assert-equal era-check-help stdout)))

  (define-scenario (era-check help)
                   "era_check --help"
                   (receive (stdout _) (era-check "--help")
                            (assert-equal era-check-help stdout)))

  (define-scenario (era-check no-device-specified)
                   "Fail if no device specified"
                   (receive (_ stderr) (run-fail "era_check")
                            (assert-starts-with "No input file provided." stderr)))

  (define-scenario (era-check dev-not-exist)
                   "Fail if specified device doesn't exist"
                   (receive (_ stderr) (run-fail "era_check /dev/unlikely")
                            (assert-starts-with "/dev/unlikely: No such file or directory" stderr)))

  (define-scenario (era-check dev-is-a-directory)
                   "Fail if given a directory instead of a file or device"
                   (receive (_ stderr) (run-fail "era_check /tmp")
                            (assert-starts-with "/tmp: Not a block device or regular file" stderr)))

  (define-scenario (era-check bad-permissions)
                   "Fail if given a device with inadequate access permissions"
                   (with-temp-file-sized ((md "era.bin" (meg 4)))
                                         (run-ok "chmod -r" md)
                                         (receive (_ stderr) (run-fail "era_check" md)
                                                  (assert-starts-with "syscall 'open' failed: Permission denied" stderr))))

  (define-scenario (era-check empty-dev)
                   "Fail if given a file of zeroes"
                   (with-empty-metadata (md)
                     (run-fail "era_check" md)))

  (define-scenario (era-check quiet)
                   "Fail should give no output if --quiet"
                   (with-empty-metadata (md)
                     (receive (stdout stderr) (run-fail "era_check --quiet" md)
                              (assert-eof stdout)
                              (assert-eof stderr))))

  (define-scenario (era-check q)
                   "Fail should give no output if -q"
                   (with-empty-metadata (md)
                     (receive (stdout stderr) (run-fail "era_check -q" md)
                              (assert-eof stdout)
                              (assert-eof stderr))))
  )