andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add filtering for specification tests 

* tests/spec/oil.scm: Add code to filter out specific test cases from
a test file.
This commit is contained in:
Timothy Sample 2018-11-10 21:19:54 -05:00
parent 4b7d2404f3
commit f448a57a27
1 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
tests/spec/oil.scm
View File

@ -26,7 +26,9 @@
(gexp->derivation
(string-append "oil-tests-" version)
#~(begin
(use-modules (guix build utils))
(use-modules (guix build utils)
(ice-9 match)
(ice-9 rdelim))
(copy-recursively #$source #$output)
(setenv "PATH" (list->search-path-as-string
(map (lambda (p)
@ -44,6 +46,40 @@
"test/spec.sh"))
(substitute* "test/common.sh"
(("/usr/bin/env time") (which "time")))
;; This is not necessary, but it makes the output nicer.
(substitute* "test/spec.sh"
(("which \\$name") "which $name 2>/dev/null")))))))
(("which \\$name") "which $name 2>/dev/null"))
;; We want to omit tests that use features we do not
;; support yet. This lets us add tests quickly, and expand
;; to the more integrated tests as we are able.
(let ((remove-tests
(lambda (tests file)
(format #t "Removing tests from ~a:~%" file)
(with-atomic-file-replacement file
(lambda (in out)
(let loop ((line (read-line in 'concat)) (ignore? #f))
(cond
((eof-object? line) #t)
((string-prefix? "####" line)
(let* ((name-part (substring line 4))
(name (string-trim-both name-part)))
(if (member name tests)
(begin
(format #t " - ~a~%" name)
(loop (read-line in 'concat) #t))
(begin
(display line out)
(loop (read-line in 'concat) #f)))))
(else
(unless ignore? (display line out))
(loop (read-line in 'concat) ignore?))))))))
(tests-to-remove '()))
(for-each (match-lambda
((file tests) (remove-tests tests file)))
tests-to-remove)))))))
;; Local Variables:
;; eval: (put 'with-atomic-file-replacement 'scheme-indent-function 1)
;; End: