basis/tr/tr-tests.factor

   1 IN: tr.tests
   2 USING: tr tools.test unicode.case ;
   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