From 706c80c6a0e0ab32684d4ae9d8d11295bb70087a Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Sat, 10 Jun 2017 12:32:59 +0200 Subject: repo: remove git-repo. * src/cuirass/repo.scm (git-repo): Remove it. * tests/repo.scm: Remove related tests. git-repo is not used and it's usecases will be covered by (guix git). --- tests/repo.scm | 32 -------------------------------- 1 file changed, 32 deletions(-) (limited to 'tests') diff --git a/tests/repo.scm b/tests/repo.scm index fc73a64..8890c0a 100644 --- a/tests/repo.scm +++ b/tests/repo.scm @@ -76,38 +76,6 @@ name." ;; Cleanup. (delete-file file-name)) -;;; -;;; Git repository. -;;; - -(define (create-git-repository name) - (let ((git "git")) - (system* git "init" name) - (with-directory-excursion name - (create-file "foo") - (system* git "add" "foo") - (system* git "commit" "-m" "'foo'")))) - -(test-group-with-cleanup "git-repo" - (define rpt (git-repo #:url file-name - #:dir "git-example")) - - ;; Since repository doesn't exist yet, 'repo-update' should throw an error. - (test-error "git-repo-update: file not found" - 'system-error - (repo-update rpt "master")) - - (create-git-repository file-name) - - (test-assert "git-repo-update" - (repo-update rpt "master")) - - (test-assert "git-repo-snapshot" - (in-store? (repo-snapshot rpt store))) - - ;; Cleanup. - (system* "rm" "-rf" file-name "git-example")) - (close-connection store) (test-end) -- cgit v1.2.3