basis/io/encodings/utf7/utf7-tests.factor

   1 USING: io.encodings.string io.encodings.utf7 kernel sequences strings
   2 tools.test ;
   3 IN: io.encodings.utf7.tests
   4
   5 {
   6     {
   7         "~/b&AOU-g&APg-"
   8         "b&AOU-x"
   9         "b&APg-x"
  10         "test"
  11         "Skr&AOQ-ppost"
  12         "Ting &- S&AOU-ger"
  13         "~/F&APg-lder/mailb&AOU-x &- stuff + more"
  14         "~peter/mail/&ZeVnLIqe-/&U,BTFw-"
  15     }
  16 } [
  17     {
  18         "~/bågø"
  19         "båx"
  20         "bøx"
  21         "test"
  22         "Skräppost"
  23         "Ting & Såger"
  24         "~/Følder/mailbåx & stuff + more"
  25         "~peter/mail/日本語/台北"
  26     } [ utf7imap4 encode >string ] map
  27 ] unit-test
  28
  29 { t } [
  30     {
  31         "~/bågø"
  32         "båx"
  33         "bøx"
  34         "test"
  35         "Skräppost"
  36         "Ting & Såger"
  37         "~/Følder/mailbåx & stuff + more"
  38         "~peter/mail/日本語/台北"
  39     } dup [ utf7 encode utf7 decode ] map =
  40 ] unit-test
  41
  42 { t } [
  43     {
  44         "~/bågø"
  45         "båx"
  46         "bøx"
  47         "test"
  48         "Skräppost"
  49         "Ting & Såger"
  50         "~/Følder/mailbåx & stuff + more"
  51         "~peter/mail/日本語/台北"
  52     } dup [ utf7imap4 encode utf7imap4 decode ] map =
  53 ] unit-test