diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2024-03-09 22:31:25 +0100 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2024-03-10 00:05:58 +0100 |
| commit | 2ee54513196bad8e663e78ac695b6ffa0da49051 (patch) | |
| tree | 4686b32c86fd484da0acfa35da69454659504cf7 /tests/lint.scm | |
| parent | fe2b2f860e1fd7dfdc333f65893e65f131e290c7 (diff) | |
| parent | 7b9a23ea315d2b4efde755c3bd0b1db3cacba9c2 (diff) | |
Merge branch 'master' into gnome-team
Diffstat (limited to 'tests/lint.scm')
| -rw-r--r-- | tests/lint.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/lint.scm b/tests/lint.scm index 87213fcc78..95d82d7490 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -1407,6 +1407,26 @@ (check-archival (dummy-package "x" (source origin))))))) (warning-contains? "scheduled" warnings))) +(test-assert "archival: missing svn revision" + (let* ((origin (origin + (method svn-fetch) + (uri (svn-reference + (url "http://example.org/svn/foo") + (revision "1234"))) + (sha256 (make-bytevector 32)))) + ;; https://archive.softwareheritage.org/api/1/origin/save/ + (save "{ \"origin_url\": \"http://example.org/svn/foo\", + \"save_request_date\": \"2014-11-17T22:09:38+01:00\", + \"save_request_status\": \"accepted\", + \"save_task_status\": \"scheduled\" }") + (warnings (with-http-server `((404 "No extid.") ;lookup-directory-by-nar-hash + (404 "No revision.") ;lookup-revision + (404 "No origin.") ;lookup-origin + (200 ,save)) ;save-origin + (parameterize ((%swh-base-url (%local-url))) + (check-archival (dummy-package "x" (source origin))))))) + (warning-contains? "scheduled" warnings))) + (test-equal "archival: revision available" '() (let* ((origin (origin |