Diff for /gforth/test/xchar.fs between versions 1.1 and 1.3

version 1.1, 2010/02/14 18:04:16 version 1.3, 2010/03/18 21:27:39
Line 1 Line 1
 \ xchar word test suite - UTF-8 only  \ xchar word test suite - UTF-8 only
   
 key? drop \ initialize terminal - will init locale in Gforth  
 hex  hex
   
 { 0 xc-size -> 1 }  { 0 xc-size -> 1 }
Line 14  hex Line 13  hex
   
 : test-string s" 恭喜发财!" ;  : test-string s" 恭喜发财!" ;
   
 { test-string drop xc@+ swap xc@+ swap xc@+ swap xc@+ swap xc@+ nip -> 606D 559C 53D1 8D22 21 }  { test-string drop xc@+ swap xc@+ swap xc@+ swap xc@+ swap xc@+ nip
     -> 606D 559C 53D1 8D22 21 }
 { ffff pad 4 xc!+? -> pad 3 + 1 true }  { ffff pad 4 xc!+? -> pad 3 + 1 true }
 { test-string drop xchar+ -> test-string drop 3 + }  { test-string drop xchar+ -> test-string drop 3 + }
 { test-string drop xchar+ xchar- -> test-string drop }  { test-string drop xchar+ xchar- -> test-string drop }

Removed from v.1.1  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>