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 system tools.test
   4 unicode.flags unicode.flags.images ;
   5 IN: unicode.flags.images.tests
   6
   7 { } [ valid-flag-biassoc drop ] unit-test
   8
   9 ! Windows doesn't seem to have these flags yet (!)
  10 { { } } [
  11     os macosx? [
  12         valid-flag-names alpha-2 keys diff
  13         [ dup unicode>flag ] { } map>assoc
  14     ] [
  15         { }
  16     ] if
  17 ] unit-test