suzanne.soy/cover
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

coveralls stuff is hard to test

Browse Source
This commit is contained in:
Spencer Florence 2015-01-07 13:36:20 -05:00
parent ae6ce31966
commit 471105c343
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
private/coveralls.rkt
View File

@ -149,13 +149,21 @@
(with-output-to-string (thunk (system "git rev-parse --abbrev-ref HEAD"))))))
(define (get-git-remotes)
(define raw (with-output-to-string (thunk (system "git remote -v"))))
(parse-git-remote (with-output-to-string (thunk (system "git remote -v")))))
(define (parse-git-remote raw)
(define lines (string-split raw "\n"))
(define fetch-only (filter (λ (line) (regexp-match #rx"\\(fetch\\)" line)) lines))
(for/list ([line fetch-only])
(define split (string-split line))
(hasheq 'name (list-ref split 0)
'url (list-ref split 1))))
(module+ test
(test-begin
(define raw
"origin git@github.com:florence/cover.git (fetch)\norigin git@github.com:florence/cover.git (push)")
(check-equal? (parse-git-remote raw)
(list (hasheq 'name "origin"
'url "git@github.com:florence/cover.git")))))
(define (get-git-commit)
(define format (string-join '("%H" "%aN" "%ae" "%cN" "%ce" "%s") "%n"))