9 lines
212 B
Factor
9 lines
212 B
Factor
|
IN: tr.tests
|
||
|
|
USING: tr tools.test unicode.case ;
|
||
|
|
|
||
|
|
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
|