diff options
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))) |