diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-16 03:01:05 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-22 00:00:05 +0100 |
| commit | 2201308b4253530537cf6c7db60ca310fd0564bd (patch) | |
| tree | 5842f63e7a9f9d089b3d0faac49b6c8a0d1a0b1a | |
| parent | Add some tests for exception utilities. (diff) | |
| download | calp-2201308b4253530537cf6c7db60ca310fd0564bd.tar.gz calp-2201308b4253530537cf6c7db60ca310fd0564bd.tar.xz | |
Add tests for language utilities.
| -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)) |