diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:44:17 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-16 00:51:19 +0100 |
commit | e4308e887ff887920cf7a558ee9e9d8b14280d07 (patch) | |
tree | 78cb0d179672ede90c993243af7b65b0a62fb02b /tests/unit/text/numbers-sv-short.scm | |
parent | Cleanup swedish word numbers. (diff) | |
download | calp-e4308e887ff887920cf7a558ee9e9d8b14280d07.tar.gz calp-e4308e887ff887920cf7a558ee9e9d8b14280d07.tar.xz |
Finish (text numbers) tests.
Diffstat (limited to '')
-rw-r--r-- | tests/unit/text/numbers-sv-short.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/unit/text/numbers-sv-short.scm b/tests/unit/text/numbers-sv-short.scm index a5b1ff1e..ffedf578 100644 --- a/tests/unit/text/numbers-sv-short.scm +++ b/tests/unit/text/numbers-sv-short.scm @@ -202,5 +202,17 @@ (number->string-ordinal #e1e66 'sv)) ) +(test-group "each-string sv" + (test-equal "varje" + (each-string 1 'sv)) + (test-equal "varannan" + (each-string 2 'sv)) + (test-equal "vartannat" + (each-string 2 'sv neutrum: #t)) + (test-equal "var tredje" + (each-string 3 'sv)) + (test-equal "vart tredje" + (each-string 3 'sv neutrum: #t))) + '((text numbers) (text numbers sv)) |