diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2024-02-16 21:13:42 +0100 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2024-02-16 21:13:42 +0100 |
commit | 0b72e9f387d427a0cb5d0b00ab814afc1fe7a626 (patch) | |
tree | 4140d34a16db5819b7bf6859e51c9361876df1b1 /guile/email-key-rotation/tests/fake-openssl.scm | |
parent | 25fb0449940d96aeae65c9896380eaf88e5be294 (diff) |
Set up i18n
Diffstat (limited to 'guile/email-key-rotation/tests/fake-openssl.scm')
-rw-r--r-- | guile/email-key-rotation/tests/fake-openssl.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guile/email-key-rotation/tests/fake-openssl.scm b/guile/email-key-rotation/tests/fake-openssl.scm index e23e148..2feef0d 100644 --- a/guile/email-key-rotation/tests/fake-openssl.scm +++ b/guile/email-key-rotation/tests/fake-openssl.scm @@ -4,10 +4,13 @@ #:use-module (ice-9 rdelim) #:use-module (ice-9 textual-ports) #:use-module (ice-9 match) + #:use-module (ice-9 i18n) #:export (call-with-fake-openssl) #:declarative? #t #:duplicates (merge-generics)) +(define (G_ msg) (gettext msg "email-key-rotation")) + (define (call-with-fake-openssl seed thunk) (parameterize ((current-openssl-binary @@ -37,7 +40,7 @@ END OF FAKE PUBLIC KEY" (make-exception-with-origin 'call-with-fake-openssl) (make-exception-with-irritants (list otherwise)) (make-exception-with-message - "the private key has not been generated by the fake openssl."))))))) + (G_ "the private key has not been generated by the fake openssl.")))))))) (("rand" "-out" file "-hex" (= string->number n-bytes)) (call-with-output-file file (lambda (port) @@ -49,5 +52,5 @@ END OF FAKE PUBLIC KEY" (make-exception-with-origin 'call-with-fake-openssl) (make-exception-with-irritants (list otherwise)) (make-exception-with-message - "invalid use of openssl."))))))) + (G_ "invalid use of openssl.")))))))) (thunk))) |