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" ;
|
|
|
|
|
|
|
|
[ "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
|