cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

forgejo: Enqueue the repository URL, not the pull request URL.

Browse source 
Previously the pull request URL (say,
https://codeberg.org/guix/guix/pulls/123) would be mistaken for the Git
repository URL.
This commit is contained in:
Ludovic Courtès 2025-07-16 20:24:33 +02:00
parent b35c26a74e
commit eec7715928
2 changed files with 22 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tests/forgejo.scm
View file

@ -30,6 +30,9 @@
(define pull-request-url
"https://forgejo.example.org/base-repo/pulls/1")
(define pull-request-clone-url
"https://forgejo.example.org/source-repo/fork-name.git")
(define pull-request-commit
"582af40e8a059fa05c7048a7ac4f2eccbbd0183b")
@ -69,7 +72,7 @@
},
\"name\": \"fork-name\",
\"full_name\": \"fork-owner/fork-name\",
\"clone_url\": \"https://forgejo.example.org/source-repo/fork-name.git\",
\"clone_url\": \"" pull-request-clone-url "\",
\"html_url\": \"https://forgejo.example.org/source-repo/fork-name\"
}
}
@ -94,7 +97,7 @@
(test-equal "all-git-repositories"
`((label . #f)
(url . ,pull-request-url)
(url . ,pull-request-clone-url)
(link-url . #f)
(x-git-repo-header . #f)
(included-branches . #f)
@ -107,7 +110,7 @@
(commit-range-link-url-template . #f)
(file-link-url-template . #f))
(match (find (lambda (alist)
(equal? (assoc-ref alist 'url) pull-request-url))
(equal? (assoc-ref alist 'url) pull-request-clone-url))
(all-git-repositories conn))
((('id . id) rest ...)
;; Since the ID might vary depending on other tests run on this