diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-02 17:45:13 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
commit | 95f58471b5d1b69acab73868c4437cc8df6cdc82 (patch) | |
tree | 6af74ffe769deea0e49f39af3ffbc9e358beed1a /tests/unit/text/numbers-sv.scm.disabled | |
parent | Add new, much shorter tests for swedish numbers. (diff) | |
download | calp-95f58471b5d1b69acab73868c4437cc8df6cdc82.tar.gz calp-95f58471b5d1b69acab73868c4437cc8df6cdc82.tar.xz |
Fix wordy numbers in swedish!
Diffstat (limited to 'tests/unit/text/numbers-sv.scm.disabled')
-rw-r--r-- | tests/unit/text/numbers-sv.scm.disabled | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/unit/text/numbers-sv.scm.disabled b/tests/unit/text/numbers-sv.scm.disabled index 31048ba1..91fbe63b 100644 --- a/tests/unit/text/numbers-sv.scm.disabled +++ b/tests/unit/text/numbers-sv.scm.disabled @@ -1233,12 +1233,12 @@ (test-equal "niohundraåttiosju miljoner sexhundrafemtiofyra tusen trehundratjugoett" (number->string-cardinal 987654321 'sv)) (test-equal "en miljard" (number->string-cardinal 1000000000 'sv)) (test-equal "en biljon" (number->string-cardinal 1000000000000 'sv)) - (test-equal "en biljard" (number->string-cardinal #e10e15 'sv)) - (test-equal "en triljon" (number->string-cardinal #e10e18 'sv)) - (test-equal "en triljard" (number->string-cardinal #e10e21 'sv)) - (test-equal "en kvadriljon" (number->string-cardinal #e10e24 'sv)) - (test-equal "en kvadriljard" (number->string-cardinal #e10e27 'sv)) - (test-equal "en kvintiljon" (number->string-cardinal #e10e30 'sv))) + (test-equal "en biljard" (number->string-cardinal #e1e15 'sv)) + (test-equal "en triljon" (number->string-cardinal #e1e18 'sv)) + (test-equal "en triljard" (number->string-cardinal #e1e21 'sv)) + (test-equal "en kvadriljon" (number->string-cardinal #e1e24 'sv)) + (test-equal "en kvadriljard" (number->string-cardinal #e1e27 'sv)) + (test-equal "en kvintiljon" (number->string-cardinal #e1e30 'sv))) ;;; Ordningstal – Ordinal numbers @@ -2256,7 +2256,7 @@ (test-equal "ettusen åttonde" (number->string-ordinal 1008 'sv a-form?: #t)) (test-equal "ettusen nionde" (number->string-ordinal 1009 'sv a-form?: #t)) (test-equal "ettusen tionde" (number->string-ordinal 1010 'sv a-form?: #t)) - (test-equal "ettusen hundrade" (number->string-ordinal 1100 'sv a-form?: #t)) + (test-equal "ettusen etthundrade" (number->string-ordinal 1100 'sv a-form?: #t)) (test-equal "ettusen tvåhundrade" (number->string-ordinal 1200 'sv a-form?: #t)) (test-equal "ettusen trehundrade" (number->string-ordinal 1300 'sv a-form?: #t)) (test-equal "ettusen fyrahundrade" (number->string-ordinal 1400 'sv a-form?: #t)) |