]> gitweb.factorcode.org Git - factor.git/blob - extra/unicode/flags/images/images-tests.factor
unicode.flags.images: cartesian product for aa..zz
[factor.git] / extra / unicode / flags / images / images-tests.factor
1 ! Copyright (C) 2022 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: assocs countries kernel sets tools.test unicode.flags
4 unicode.flags.images ;
5 IN: unicode.flags.images.tests
6
7 { } [ valid-flag-biassoc drop ] unit-test
8
9 { { } } [
10     valid-flag-names alpha-2 keys diff
11     [ dup unicode>flag ] { } map>assoc
12 ] unit-test