unicode.flags.images: cartesian product for aa..zz

[factor.git] / extra / unicode / flags / images / images-tests.factor

diff --git a/extra/unicode/flags/images/images-tests.factor b/extra/unicode/flags/images/images-tests.factor
index 9305545ffcc1c74e0f23652da7db46112e7e2758..63367b21fb5a25f82534bdb6e1bf7a47f18e7d70 100644 (file)
--- a/extra/unicode/flags/images/images-tests.factor
+++ b/extra/unicode/flags/images/images-tests.factor
@@ -1,6 +1,12 @@
 ! Copyright (C) 2022 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel tools.test unicode.flags.images ;
+USING: assocs countries kernel sets tools.test unicode.flags
+unicode.flags.images ;
 IN: unicode.flags.images.tests
 
-{ } [ valid-flag-biassoc drop ] unit-test
\ No newline at end of file
+{ } [ valid-flag-biassoc drop ] unit-test
+
+{ { } } [
+    valid-flag-names alpha-2 keys diff
+    [ dup unicode>flag ] { } map>assoc
+] unit-test