From 2201308b4253530537cf6c7db60ca310fd0564bd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 16 Nov 2023 03:01:05 +0100 Subject: Add tests for language utilities. --- tests/unit/util/language.scm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 tests/unit/util/language.scm (limited to 'tests/unit/util/language.scm') 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)) -- cgit v1.2.3