IN: tr.tests
USING: tr tools.test ascii ;

TR: tr-test ch>upper "ABC" "XYZ" ;

[ "XXYY" ] [ "aabb" tr-test ] unit-test
[ "XXYY" ] [ "AABB" tr-test ] unit-test
[ { 12345 } ] [ { 12345 } tr-test ] unit-test