added translations

2026-08-28 17:01:19 +02:00
parent c276088fe6
commit c0f9c91ef8
2 changed files with 12 additions and 2 deletions
@@ -1,6 +1,7 @@
 #lang racket/base

-(require racket/string)
+(require racket/list
+         racket/string)

 (provide tr
         __
@@ -338,9 +339,18 @@
  (require rackunit)

  (define original-language (current-lang))
+  (define english-keys
+    (sort (hash-keys (hash-ref translation-map 'en)) symbol<?))
  (dynamic-wind
    void
    (λ ()
+      (for ((entry (in-list (languages))))
+        (define candidate (car entry))
+        (check-equal?
+         (sort (hash-keys (hash-ref translation-map candidate)) symbol<?)
+         english-keys)
+        (set-lang! candidate)
+        (check-true (string? (tr 'connected))))
      (set-lang! 'nl)
      (check-equal? (tr 'connected) "Verbonden")
      (set-lang! 'de)