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

   1 ! Copyright (C) 2009 Yun, Jonghyouk.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays byte-arrays io io.encodings io.encodings.johab assocs
   4 io.encodings.string io.streams.string io.encodings.euc.private words
   5 kernel locals multiline namespaces sequences strings tools.test ;
   6 IN: io.encodings.johab.tests
   7
   8 : johab>unicode ( ch -- ch/f )
   9     johab euc-table word-prop at ;
  10
  11 : unicode>johab ( ch -- ch/f )
  12     johab euc-table word-prop value-at ;
  13
  14 ! johab encodings
  15 [ 0x20 ] [ 0x20 johab>unicode ] unit-test
  16 [ 0x3133 ] [ 0x8444 johab>unicode ] unit-test
  17 [ 0x8A5D ] [ 0xAD4F unicode>johab ] unit-test
  18
  19 : phrase-unicode ( -- s )
  20     "\u00b3d9\u00d574\u00bb3c\u00acfc \u00bc31\u00b450\u00c0b0\u00c774!" ;
  21
  22 : phrase-johab ( -- s )
  23     B{
  24         149 183 208 129 162 137 137 193 32 164 130 150 129 172 101
  25         183 161 33
  26     } ;
  27
  28 : phrase-johab>unicode ( -- s )
  29     phrase-johab johab decode ;
  30
  31 : phrase-unicode>johab ( -- s )
  32     phrase-unicode johab encode ;
  33
  34 [ t ] [ phrase-johab>unicode phrase-unicode = ] unit-test
  35 [ t ] [ phrase-unicode>johab phrase-johab = ] unit-test
  36