thin-provisioning-tools/functional-tests/era-functional-tests.scm

70 lines
2.1 KiB
Scheme
Raw Normal View History

2017-08-30 18:59:36 +05:30
(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-era-xml (xml)
(run-ok (era-restore "-i" xml "-o" md))
b1 b2 ...)))))
2017-08-30 18:59:36 +05:30
(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)
;;;-----------------------------------------------------------
2017-08-30 19:44:10 +05:30
;;; era_restore scenarios
;;;-----------------------------------------------------------
(define-scenario (era-restore quiet-fail)
2017-08-31 14:39:58 +05:30
"No output with --quiet (failing)"
(with-temp-file ((bad-xml "era.xml"))
(with-empty-metadata (md)
(run-fail-rcv (stdout stderr) (era-restore "--quiet" "-i" bad-xml "-o" md)
2017-08-31 14:39:58 +05:30
(assert-eof stdout)
(assert-starts-with
(string-append bad-xml ": No such file or directory")
stderr)))))
2017-08-30 19:44:10 +05:30
(define-scenario (era-restore q-fail)
2017-08-31 14:39:58 +05:30
"No output with --q(failing)"
(with-temp-file ((bad-xml "era.xml"))
(with-empty-metadata (md)
(run-fail-rcv (stdout stderr) (era-restore "-q" "-i" bad-xml "-o" md)
2017-08-31 14:39:58 +05:30
(assert-eof stdout)
(assert-starts-with
(string-append bad-xml ": No such file or directory")
stderr)))))
2017-08-30 18:59:36 +05:30
)