diff options
| -rw-r--r-- | tests/unit/util/language.scm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/unit/util/language.scm b/tests/unit/util/language.scm new file mode 100644 index 00000000..2cb3a0ee --- /dev/null +++ b/tests/unit/util/language.scm @@ -0,0 +1,23 @@ +(define-module (test language) + :use-module (srfi srfi-64) + :use-module (srfi srfi-64 test-error) + :use-module (srfi srfi-88) + :use-module (hnh util env) + :use-module (hnh util language)) + +(test-equal 'sv + (let-env ((LC_MESSAGES "sv_SE.UTF-8") + (LC_ALL "en_DK.UTF-8")) + (resolve-language))) + +(test-equal 'fi + (let-env ((LC_MESSAGES "") + (LC_ALL "fi_DK.UTF-8")) + (resolve-language))) + +(test-equal 'en + (let-env ((LC_MESSAGES "") + (LC_ALL "")) + (resolve-language))) + +'((hnh util language)) |