;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2021 Xinglu Chen . (define-module (test-import-git) #:use-module (git) #:use-module (guix git) #:use-module (guix tests) #:use-module (guix packages) #:use-module (guix import git) #:use-module (guix git-download) #:use-module (guix tests git) #:use-module (srfi srfi-1) #:use-module (srfi srfi-64)) ;; Test the (guix i
aboutsummaryrefslogtreecommitdiff
path: root/.mailmap
diff options
context:
space:
mode:
Diffstat (limited to '.mailmap')
0 files changed, 0 insertions, 0 deletions
orary-git-repository directory '((add "a.txt" "A") (commit "First commit") (tag "2.0.0-rc1" "Release candidate for 2.0.0")) (let ((package (make-package directory "1.0.0"))) (latest-git-tag-version package)))) (test-equal "latest-git-tag-version: accept pre-releases" "2.0.0-rc1" (with-temporary-git-repository directory '((add "a.txt" "A") (commit "First commit") (tag "2.0.0-rc1" "Release candidate for 2.0.0")) (let ((package (make-package directory "1.0.0" '((accept-pre-releases? . #t))))) (latest-git-tag-version package)))) (test-equal "latest-git-tag-version: accept pre-releases, and custom prefix" "2.0.0-rc1" (with-temporary-git-repository directory '((add "a.txt" "A") (commit "First commit") (tag "version-2.0.0-rc1" "Release candidate for 2.0.0")) (let ((package (make-package directory "1.0.0" '((accept-pre-releases? . #t) (release-tag-prefix . "version-"))))) (latest-git-tag-version package)))) (test-equal "latest-git-tag-version: accept pre-releases, and custom suffix" "2.0.0-rc1" (with-temporary-git-repository directory '((add "a.txt" "A") (commit "First commit") (tag "2.0.0-rc1-suffix" "Release candidate for 2.0.0")) (let ((package (make-package directory "1.0.0" '((accept-pre-releases? . #t) (release-tag-suffix . "-suffix"))))) (latest-git-tag-version package)))) (test-equal "latest-git-tag-version: accept pre-releases, delimiter conflicts with pre-release part" "2.0.0_alpha" (with-temporary-git-repository directory '((add "a.txt" "A") (commit "First commit") (tag "2_0_0_alpha" "Alpha release for 2.0.0")) (let ((package (make-package directory "1.0.0" '((accept-pre-releases? . #t) (release-tag-version-delimiter . "_"))))) (latest-git-tag-version package)))) (test-equal "latest-git-tag-version: accept pre-releases, and custom suffix and prefix" "2.0.0-alpha" (with-temporary-git-repository directory '((add "a.txt" "A") (commit "First commit") (tag "prefix123-2.0.0-alpha-suffix" "Alpha release for 2.0.0")) (let ((package (make-package directory "1.0.0" '((accept-pre-releases? . #t) (release-tag-prefix . "prefix[0-9]{3}-") (release-tag-suffix . "-suffix"))))) (latest-git-tag-version package)))) (test-equal "latest-git-tag-version: accept pre-releases, and custom suffix, prefix, and delimiter" "2.0.0-alpha" (with-temporary-git-repository directory '((add "a.txt" "A") (commit "First commit") (tag "prefix123-2-0-0-alpha-suffix" "Alpha release for 2.0.0")) (let ((package (make-package directory "1.0.0" '((accept-pre-releases? . #t) (release-tag-prefix . "prefix[0-9]{3}-") (release-tag-suffix . "-suffix") (release-tag-version-delimiter . "-"))))) (latest-git-tag-version package)))) (test-equal "latest-git-tag-version: accept pre-releases, no delimiter, and custom suffix, prefix" "2alpha" (with-temporary-git-repository directory '((add "a.txt" "A") (commit "First commit") (tag "prefix123-2alpha-suffix" "Alpha release for version 2")) (let ((package (make-package directory "1.0.0" '((accept-pre-releases? . #t) (release-tag-prefix . "prefix[0-9]{3}-") (release-tag-suffix . "-suffix") (release-tag-version-delimiter . ""))))) (latest-git-tag-version package)))) (test-equal "latest-git-tag-version: no tags found" #f (with-temporary-git-repository directory '((add "a.txt" "A") (commit "First commit")) (let ((package (make-package directory "1.0.0"))) (latest-git-tag-version package)))) (test-equal "latest-git-tag-version: no valid tags found" #f (with-temporary-git-repository directory '((add "a.txt" "A") (commit "First commit") (tag "Test" "Test tag")) (let ((package (make-package directory "1.0.0"))) (latest-git-tag-version package)))) (test-end "git")