diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/locale/language.lux | 58 |
1 files changed, 36 insertions, 22 deletions
diff --git a/stdlib/source/test/lux/locale/language.lux b/stdlib/source/test/lux/locale/language.lux index bce125224..39bc71aae 100644 --- a/stdlib/source/test/lux/locale/language.lux +++ b/stdlib/source/test/lux/locale/language.lux @@ -1,24 +1,25 @@ (.module: - [lux #* - ["_" test (#+ Test)] - [abstract - [monad (#+ do)] - [hash (#+ Hash)] - [\spec - ["$." hash]]] - [data - ["." maybe] - ["." text] - [collection - ["." set (#+ Set)] - ["." list ("#\." functor fold)]]] - [macro - ["." template]] - [math - ["." random (#+ Random)] - [number - ["n" nat]]]] - [\\ + [library + [lux #* + ["_" test (#+ Test)] + [abstract + [monad (#+ do)] + [hash (#+ Hash)] + [\\spec + ["$." hash]]] + [data + ["." maybe] + ["." text] + [collection + ["." set (#+ Set)] + ["." list ("#\." functor fold)]]] + [macro + ["." template]] + [math + ["." random (#+ Random)] + [number + ["n" nat]]]]] + [\\library ["." /]]) (type: Bundle @@ -178,7 +179,8 @@ ..languages/x ..languages/y ..languages/z - ..languages/etc)) + ..languages/etc + )) (def: (aggregate lens hash territories) (All [a] (-> (-> Bundle (Set a)) @@ -214,7 +216,7 @@ (list.every? (\ /.equivalence = <reference>) (`` (list (~~ (template.splice <aliases>))))))) -(def: aliases_test +(def: aliases_test/0 Test ($_ _.and ## A @@ -236,6 +238,11 @@ (!aliases /.kachin [/.jingpho]) (!aliases /.kalaallisut [/.greenlandic]) (!aliases /.khotanese [/.sakan]) + )) + +(def: aliases_test/1 + Test + ($_ _.and ## M (!aliases /.mi'kmaq [/.micmac]) ## N @@ -260,6 +267,13 @@ (!aliases /.zaza [/.dimili /.dimli /.kirdki /.kirmanjki /.zazaki]) )) +(def: aliases_test + Test + ($_ _.and + ..aliases_test/0 + ..aliases_test/1 + )) + (def: #export random (Random /.Language) (let [options (|> ..languages |