aboutsummaryrefslogtreecommitdiff
path: root/tests/ed25519.sec
blob: 068738dfabd8b932da67193f07a83c13b1fbf5b2 (about) (plain) 
1
2
3
4
5
6
7
8
9
10

-----BEGIN PGP PRIVATE KEY BLOCK-----

lFgEXqNaoBYJKwYBBAHaRw8BAQdArviKtelb4g0I3zx9xyDS40Oz8i1/LRXqppG6
b23HdikAAQDGgjcUcvqR+nGYcf5UHzy9xlO/dBZX4f9QV1ILDIGt0hAYtChFZCBU
d28tRmlmdHkgPGx1ZG8rdGVzdC1lY2NAY2hib3VpYi5vcmc+iJYEExYIAD4WIQRE
0x4hr3E4+bYyKAp3H0nL+q4HLQUCXqNaoAIbAwUJA8JnAAULCQgHAgYVCgkICwIE
FgIDAQIeAQIXgAAKCRB3H0nL+q4HLauDAP9UfRtK6BMKx8Jk3Qx8bdtdXi6rqcFx
NGe8WNhR+gx5PQD+KMBHnwVO40Ka0gMwUvnOoHUt0ggiiqgIek6GeC5mygM=
=VjjI
-----END PGP PRIVATE KEY BLOCK-----
generated by cgit
\": \"runtime\", \"version\": \"1.05\", \"module\": \"Test::Script\" } ], \"abstract\" : \"Fizzle Fuzz\", \"download_url\" : \"http://example.com/Foo-Bar-0.1.tar.gz\", \"author\" : \"Guix\", \"version\" : \"0.1\" }") (define test-source "foobar") ;; Avoid collisions with other tests. (%http-server-port 10400) (test-begin "cpan") (test-assert "cpan->guix-package" (with-http-server `((200 ,test-json) (200 ,test-source) (200 "{ \"distribution\" : \"Test-Script\" }")) (parameterize ((%metacpan-base-url (%local-url)) (current-http-proxy (%local-url))) (match (cpan->guix-package "Foo::Bar") (`(package (name "perl-foo-bar") (version "0.1") (source (origin (method url-fetch) (uri (string-append "http://example.com/Foo-Bar-" version ".tar.gz")) (sha256 (base32 ,(? string? hash))))) (build-system perl-build-system) (propagated-inputs (list perl-test-script)) (home-page "https://metacpan.org/release/Foo-Bar") (synopsis "Fizzle Fuzz") (description fill-in-yourself!) (license perl-license)) (string=? (bytevector->nix-base32-string (call-with-input-string test-source port-sha256)) hash)) (x (pk 'fail x #f)))))) (test-equal "package-latest-release" (list '("http://example.com/Foo-Bar-0.1.tar.gz") #f (list (upstream-input (name "Test-Script") (downstream-name "perl-test-script") (type 'propagated)))) (with-http-server `((200 ,test-json) (200 "{ \"distribution\" : \"Test-Script\" }") (200 ,test-source)) (parameterize ((%metacpan-base-url (%local-url)) (current-http-proxy (%local-url))) (define source (package-latest-release (dummy-package "perl-test-script" (version "0.0.0") (source (dummy-origin (method url-fetch) (uri "mirror://cpan/Foo-Bar-0.0.0.tgz")))) (list %cpan-updater))) (list (upstream-source-urls source) (upstream-source-signature-urls source) (upstream-source-inputs source))))) (test-equal "metacpan-url->mirror-url, http" "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz" (metacpan-url->mirror-url "http://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")) (test-equal "metacpan-url->mirror-url, https" "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz" (metacpan-url->mirror-url "https://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")) (test-end "cpan")
generated by cgit