basis/tr/tr-tests.factor

   1 IN: tr.tests
   2 USING: tr tools.test ascii ;
   3
   4 TR: tr-test ch>upper "ABC" "XYZ" ;
   5
   6 { "XXYY" } [ "aabb" tr-test ] unit-test
   7 { "XXYY" } [ "AABB" tr-test ] unit-test
   8 { { 12345 } } [ { 12345 } tr-test ] unit-test