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

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