summaryrefslogtreecommitdiff
path: root/tests/channels.scm
diff options
context:
space:
mode:
authorAttila Lendvai <attila@lendvai.name>2021-12-21 22:56:10 +0100
committerMathieu Othacehe <othacehe@gnu.org>2021-12-22 10:53:19 +0100
commit9ebc9ca070a21ba0aeb3f61202a8071bb250ccc8 (patch)
treef29313e0c83112cf7aceeec893f1ee68135af78b /tests/channels.scm
parent5b8ae331f73d970e29566b82c9fe36aa0d77ccb7 (diff)
tests: Move keys into ./tests/keys/ and add a third ed25519 key.
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 <othacehe@gnu.org>
Diffstat (limited to 'tests/channels.scm')
-rw-r--r--tests/channels.scm18
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/channels.scm b/tests/channels.scm
index 3e82315b0c7..d45c450241d 100644
--- a/tests/channels.scm
+++ b/tests/channels.scm
@@ -480,8 +480,8 @@
480 #t 480 #t
481 (with-fresh-gnupg-setup (list %ed25519-public-key-file 481 (with-fresh-gnupg-setup (list %ed25519-public-key-file
482 %ed25519-secret-key-file 482 %ed25519-secret-key-file
483 %ed25519bis-public-key-file 483 %ed25519-2-public-key-file
484 %ed25519bis-secret-key-file) 484 %ed25519-2-secret-key-file)
485 (with-temporary-git-repository directory 485 (with-temporary-git-repository directory
486 `((add ".guix-channel" 486 `((add ".guix-channel"
487 ,(object->string 487 ,(object->string
@@ -507,7 +507,7 @@
507 (commit-id-string commit1) 507 (commit-id-string commit1)
508 (openpgp-public-key-fingerprint 508 (openpgp-public-key-fingerprint
509 (read-openpgp-packet 509 (read-openpgp-packet
510 %ed25519bis-public-key-file)))) ;different key 510 %ed25519-2-public-key-file)))) ;different key
511 (channel (channel (name 'example) 511 (channel (channel (name 'example)
512 (url (string-append "file://" directory)) 512 (url (string-append "file://" directory))
513 (introduction intro)))) 513 (introduction intro))))
@@ -519,7 +519,7 @@
519 (oid->string (commit-id commit1)) 519 (oid->string (commit-id commit1))
520 (key-fingerprint %ed25519-public-key-file) 520 (key-fingerprint %ed25519-public-key-file)
521 (key-fingerprint 521 (key-fingerprint
522 %ed25519bis-public-key-file)))))) 522 %ed25519-2-public-key-file))))))
523 (authenticate-channel channel directory 523 (authenticate-channel channel directory
524 (commit-id-string commit2) 524 (commit-id-string commit2)
525 #:keyring-reference-prefix "") 525 #:keyring-reference-prefix "")
@@ -530,8 +530,8 @@
530 #t 530 #t
531 (with-fresh-gnupg-setup (list %ed25519-public-key-file 531 (with-fresh-gnupg-setup (list %ed25519-public-key-file
532 %ed25519-secret-key-file 532 %ed25519-secret-key-file
533 %ed25519bis-public-key-file 533 %ed25519-2-public-key-file
534 %ed25519bis-secret-key-file) 534 %ed25519-2-secret-key-file)
535 (with-temporary-git-repository directory 535 (with-temporary-git-repository directory
536 `((add ".guix-channel" 536 `((add ".guix-channel"
537 ,(object->string 537 ,(object->string
@@ -552,12 +552,12 @@
552 (signer ,(key-fingerprint %ed25519-public-key-file))) 552 (signer ,(key-fingerprint %ed25519-public-key-file)))
553 (add "c.txt" "C") 553 (add "c.txt" "C")
554 (commit "third commit" 554 (commit "third commit"
555 (signer ,(key-fingerprint %ed25519bis-public-key-file))) 555 (signer ,(key-fingerprint %ed25519-2-public-key-file)))
556 (branch "channel-keyring") 556 (branch "channel-keyring")
557 (checkout "channel-keyring") 557 (checkout "channel-keyring")
558 (add "signer.key" ,(call-with-input-file %ed25519-public-key-file 558 (add "signer.key" ,(call-with-input-file %ed25519-public-key-file
559 get-string-all)) 559 get-string-all))
560 (add "other.key" ,(call-with-input-file %ed25519bis-public-key-file 560 (add "other.key" ,(call-with-input-file %ed25519-2-public-key-file
561 get-string-all)) 561 get-string-all))
562 (commit "keyring commit") 562 (commit "keyring commit")
563 (checkout "master")) 563 (checkout "master"))
@@ -588,7 +588,7 @@
588 (unauthorized-commit-error-signing-key c)) 588 (unauthorized-commit-error-signing-key c))
589 (openpgp-public-key-fingerprint 589 (openpgp-public-key-fingerprint
590 (read-openpgp-packet 590 (read-openpgp-packet
591 %ed25519bis-public-key-file)))))) 591 %ed25519-2-public-key-file))))))
592 (authenticate-channel channel directory 592 (authenticate-channel channel directory
593 (commit-id-string commit3) 593 (commit-id-string commit3)
594 #:keyring-reference-prefix "") 594 #:keyring-reference-prefix "")