2008-07-09 20:25:24 -04:00
|
|
|
IN: tr.tests
|
2009-01-08 20:07:46 -05:00
|
|
|
USING: tr tools.test ascii ;
|
2008-07-09 20:25:24 -04:00
|
|
|
|
|
|
|
|
TR: tr-test ch>upper "ABC" "XYZ" ;
|
|
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ "XXYY" } [ "aabb" tr-test ] unit-test
|
|
|
|
|
{ "XXYY" } [ "AABB" tr-test ] unit-test
|
|
|
|
|
{ { 12345 } } [ { 12345 } tr-test ] unit-test
|
