-*- mode: lisp-data -*-

scheme-mode

(package...
 "(define-public " (s name)
 n> "(package"
 n  > "(name \"" (s name) "\")"
 n  > "(version \"" p "\")"
 n  > "(source origin...)"
 n  > "(build-system " (p "gnu") "-build-system)"
 n  > "(home-page \"" p "\")"
 n  > "(synopsis \"" p "\")"
 n  > "(description \"" p "\")"
 n  > "(license license:" (p "unknown") ")))" n)

(origin...
 "(origin"
 n> "(method " (p "url-fetch" method) ")"
 n> "(uri " (cl-case (and method (intern method))
              (git-fetch "git-reference...")
              (svn-fetch "svn-reference...")
              (hg-fetch  "hg-reference...")
              (cvs-fetch "cvs-reference...")
              (bzr-fetch "bzr-reference...")
              (otherwise "\"https://...\""))
 ")"
 n>
 (cl-case (and method (intern method))
   (git-fetch
    (insert "(file-name (git-file-name name version))")
    (newline)
    (indent-according-to-mode))
   (hg-fetch
    (insert "(file-name (hg-file-name name version))")
    (newline)
    (indent-according-to-mode))
   (svn-fetch
    (insert "(file-name (string-append name \"-\" version \"-checkout\"))")
    (newline)
    (indent-according-to-mode))
   (cvs-fetch
    (insert "(file-name (string-append name \"-\" version \"-checkout\"))")
    (newline)
    (indent-according-to-mode))
   (bzr-fetch
    (insert "(file-name (string-append name \"-\" version \"-checkout\"))")
    (newline)
    (indent-according-to-mode))
   (t          ""))
 > "(sha256"
 n > "(base32 \""
 ;; hash of an empty directory
 (p "0sjjj9z1dhilhpc8pq4154czrb79z9cm044jvn75kxcjv6v5l2m5") "\")))")

(git-reference...
 "(git-reference"
 n> "(url \"" p "\")"
 n> "(commit " (p "commit") "))")

(svn-reference...
 "(svn-reference"
 n> "(url \"" p "\")"
 n> "(revision " (p "revision") "))")

(cvs-reference...
 "(cvs-reference"
 n> "(root-directory \"" p "\")"
 n> "(module \"" p "\")"
 n> "(revision \"" p "\"))")

(hg-reference...
 "(hg-reference"
 n> "(url \"" p "\")"
 n> "(changeset " (p "changeset") "))")

(bzr-reference...
 "(bzr-reference"
 n> "(url \"" p "\")"
 n> "(revision " (p "revision") "))")

(:phases\ "#:phases (modify-phases %standard-phases"
          n> p ")")

(add-before\ "(add-before '" p " '" p
             n > p ")")
(add-after\ "(add-after '" p " '" p
            n > p ")")
(replace\ "(replace '" p " " p")")
s='left'>Commit message (<a href='/guix/log/tests/keys?id=dc8c3024c0e66e40ff66dbafc06d48811b2c4ce6&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-05-18 23:20:21 +0200'>2022-05-18</span></td><td><a href='/guix/commit/tests/keys?id=3ae7632ca0a1edca9d8c3c766efb0dcc8aa5da37'>tests: Ensure test OpenPGP keys never expire.</a><span class='msg-avail'>...<span class='msg-tooltip'>All these keys had expiration dates.  'tests/keys/ed25519.pub' expired
on 2022-04-24.

Fixes &lt;https://issues.guix.gnu.org/55506&gt;.

* tests/keys/ed25519.pub, tests/keys/ed25519-2.pub,
tests/keys/ed25519-3.pub: Remove expiration date.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-12-22 10:53:19 +0100'>2021-12-22</span></td><td><a href='/guix/commit/tests/keys?id=9ebc9ca070a21ba0aeb3f61202a8071bb250ccc8'>tests: Move keys into ./tests/keys/ and add a third ed25519 key.</a><span class='msg-avail'>...<span class='msg-tooltip'>The third key will be used in an upcoming commit.

Rename public keys to .pub.

* guix/tests/gnupg.scm (%ed25519-3-public-key-file): New variable.
(%ed25519-3-secret-key-file): New variable.
(%ed25519-2-public-key-file): Renamed from %ed25519bis-public-key-file.
(%ed25519-2-secret-key-file): Renamed from %ed25519bis-secret-key-file.
* tests/keys/ed25519-3.key: New file.
* tests/keys/ed25519-3.sec: New file.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Attila Lendvai</td></tr>