2008-07-09 20:25:24 -04:00
|
|
|
IN: tr.tests
|
|
|
|
|
USING: tr tools.test unicode.case ;
|
|
|
|
|
|
|
|
|
|
TR: tr-test ch>upper "ABC" "XYZ" ;
|
|
|
|
|
|
|
|
|
|
[ "XXYY" ] [ "aabb" tr-test ] unit-test
|
|
|
|
|
[ "XXYY" ] [ "AABB" tr-test ] unit-test
|
2008-07-09 21:42:59 -04:00
|
|
|
[ { 12345 } ] [ { 12345 } tr-test ] unit-test
|
