basis/io/encodings/euc/euc-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.euc-kr 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.euc.tests
   7
   8 : euc-kr>unicode ( ch -- ch/f )
   9     euc-kr euc-table word-prop at ;
  10
  11 : unicode>euc-kr ( ch -- ch/f )
  12     euc-kr euc-table word-prop value-at ;
  13
  14 [ f ] [ 0x80 euc-kr>unicode ] unit-test
  15 [ f ] [ 0xff euc-kr>unicode ] unit-test
  16 [ 0xac02 ] [ 0x8141 euc-kr>unicode ] unit-test
  17 [ 0x7f ] [ 0x7f euc-kr>unicode ] unit-test
  18 [ 0xc724 ] [ 0xc0b1 euc-kr>unicode ] unit-test
  19
  20 [ 0x8141 ] [ 0xac02 unicode>euc-kr ] unit-test
  21 [ 0x7f ] [ 0x7f unicode>euc-kr ] unit-test
  22 [ 0xc0b1 ] [ 0xc724 unicode>euc-kr ] unit-test
  23
  24 : phrase-unicode ( -- s )
  25     "\u00b3d9\u00d574\u00bb3c\u00acfc \u00bc31\u00b450\u00c0b0\u00c774!" ;
  26
  27 : phrase-euc-kr ( -- s )
  28     {
  29         0xb5 0xbf 0xc7 0xd8
  30         0xb9 0xb0 0xb0 0xfa
  31         0x20 0xb9 0xe9 0xb5
  32         0xce 0xbb 0xea 0xc0
  33         0xcc 0x21
  34     } ;
  35
  36 : phrase-unicode>euc-kr ( -- s )
  37     phrase-unicode euc-kr encode ;
  38
  39 : phrase-euc-kr>unicode ( -- s )
  40     phrase-euc-kr euc-kr decode ;
  41
  42 [ t ] [ phrase-unicode>euc-kr >array phrase-euc-kr = ] unit-test
  43
  44 [ t ]  [ phrase-euc-kr>unicode phrase-unicode = ] unit-test
  45
  46 [ t ] [ phrase-euc-kr 1 head* euc-kr decode phrase-unicode 1 head* = ] unit-test
  47
  48 [ t ] [ phrase-euc-kr 3 head* euc-kr decode phrase-unicode 2 head* = ] unit-test
  49
  50 [ t ] [ phrase-euc-kr 2 head* euc-kr decode phrase-unicode 2 head* CHAR: replacement-character suffix = ] unit-test