diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/locale.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/locale.lux b/stdlib/source/test/lux/locale.lux index 0a05619e8..8d114aacd 100644 --- a/stdlib/source/test/lux/locale.lux +++ b/stdlib/source/test/lux/locale.lux @@ -22,22 +22,22 @@ ["[0]" language (.only Language)] ["[0]" territory (.only Territory)]]]) -(def: random_language +(def random_language (Random Language) (random.either (random#in language.afar) (random#in language.zaza))) -(def: random_territory +(def random_territory (Random Territory) (random.either (random#in territory.afghanistan) (random#in territory.zimbabwe))) -(def: random_encoding +(def random_encoding (Random Encoding) (random.either (random#in encoding.ascii) (random#in encoding.koi8_u))) -(def: random_locale +(def random_locale (Random /.Locale) (do random.monad [language ..random_language @@ -45,7 +45,7 @@ encoding ..random_encoding] (in (/.locale language {.#Some territory} {.#Some encoding})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Locale]) |