From f46b0ef734fe4d972cb6c8d4e370fa61236e7a44 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 6 Nov 2023 00:41:45 +0100 Subject: Cleanup swedish word numbers. --- tests/unit/text/numbers-sv-short.scm | 16 +++++++++------- tests/unit/text/numbers-sv.scm.disabled | 5 ++++- 2 files changed, 13 insertions(+), 8 deletions(-) (limited to 'tests/unit') diff --git a/tests/unit/text/numbers-sv-short.scm b/tests/unit/text/numbers-sv-short.scm index 266553ad..a5b1ff1e 100644 --- a/tests/unit/text/numbers-sv-short.scm +++ b/tests/unit/text/numbers-sv-short.scm @@ -98,9 +98,8 @@ (test-equal "en noniljard" (number->string-cardinal #e1e57 'sv)) (test-equal "en deciljon" (number->string-cardinal #e1e60 'sv)) (test-equal "en deciljard" (number->string-cardinal #e1e63 'sv)) - (test-equal "det stora talet 1000000000000000000000000000000000000000000000000000000000000000000" - (number->string-cardinal #e1e66 'sv)) - ) + (test-equal "det stora talet 10⁶⁶" + (number->string-cardinal #e1e66 'sv))) (test-group "Ordinal numbers" (test-equal "nollte" (number->string-ordinal 0 'sv a-form?: #t)) @@ -195,10 +194,13 @@ (test-equal "niohundraåttiosju miljoner sexhundrafemtiofyra tusen trehundratjugoförsta" (number->string-ordinal 987654321 'sv a-form?: #t)) (test-equal "miljarde" (number->string-ordinal 1000000000 'sv a-form?: #t)) - (test-equal "biljonte" (number->string-ordinal 1000000000000 'sv a-form?: #t))) -(test-equal "niohundranittionio biljoner niohundranittionio miljarder niohundranittionio miljoner niohundranittionio tusen niohundranittionionde" - (number->string-ordinal (1- #e1e15) 'sv)) -(test-equal "1000000000000000:e" (number->string-ordinal #e1e15 'sv)) + (test-equal "biljonte" (number->string-ordinal 1000000000000 'sv a-form?: #t)) + (test-equal "niohundranittionio biljoner niohundranittionio miljarder niohundranittionio miljoner niohundranittionio tusen niohundranittionionde" + (number->string-ordinal (1- #e1e15) 'sv)) + (test-equal "biljarde" (number->string-ordinal #e1e15 'sv)) + (test-equal "10⁶⁶:e" + (number->string-ordinal #e1e66 'sv)) + ) '((text numbers) (text numbers sv)) diff --git a/tests/unit/text/numbers-sv.scm.disabled b/tests/unit/text/numbers-sv.scm.disabled index 91fbe63b..20c45eec 100644 --- a/tests/unit/text/numbers-sv.scm.disabled +++ b/tests/unit/text/numbers-sv.scm.disabled @@ -2464,7 +2464,10 @@ (test-equal "etthundra miljonte" (number->string-ordinal 100000000 'sv a-form?: #t)) (test-equal "niohundraåttiosju miljoner sexhundrafemtiofyra tusen trehundratjugoförsta" (number->string-ordinal 987654321 'sv a-form?: #t)) (test-equal "miljarde" (number->string-ordinal 1000000000 'sv a-form?: #t)) - (test-equal "biljonte" (number->string-ordinal 1000000000000 'sv a-form?: #t))) + (test-equal "biljonte" (number->string-ordinal 1000000000000 'sv a-form?: #t)) + (test-equal "etthundra deciljarde" (number->string-ordinal #e1e65 'sv a-form?: #t)) + (test-equal "etthundra deciljarde" (number->string-ordinal #e1e66 'sv a-form?: #t)) + ) -- cgit v1.2.3