extra/unicode/flags/images/images-tests.factor

   1 ! Copyright (C) 2022 Doug Coleman.
   2 ! See https://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 ] must-not-fail
   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