497 self should: [ array1 = #(1 2 3 4) ]. |
497 self should: [ array1 = #(1 2 3 4) ]. |
498 |
498 |
499 " |
499 " |
500 self new testEmptyReplace |
500 self new testEmptyReplace |
501 " |
501 " |
|
502 ! |
|
503 |
|
504 testTransliterating |
|
505 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'b-g' to:'B-G' ) = 'aBCDEFGhijkl1234567890'. |
|
506 self assert:( 'abcdefghij-kl1234567890' copyTransliterating:'b\-g' to:'B+G' ) = 'aBcdefGhij+kl1234567890'. |
|
507 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'69' to:'96' ) = 'abcdefghijkl1234597860' . |
|
508 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'a' to:'b' ) = 'bbcdefghijkl1234567890' . |
|
509 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'aeiou' to:'AEIOU' ) = 'AbcdEfghIjkl1234567890'. |
|
510 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'QERTYUIOPX' ) = 'abcdefghijklERTYUIOPXQ' . |
|
511 |
|
512 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'A' complement:false squashDuplicates:false ) |
|
513 = 'abcdefghijklAAAAAAAAAA'. |
|
514 |
|
515 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'A' complement:false squashDuplicates:true ) |
|
516 = 'abcdefghijklA'. |
|
517 |
|
518 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'*' complement:false squashDuplicates:false ) |
|
519 = 'abcdefghijkl**********'. |
|
520 |
|
521 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'0-9' to:'*' complement:true squashDuplicates:false ) |
|
522 = '************1234567890'. |
|
523 |
|
524 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'a-zA-Z' to:' ' complement:true squashDuplicates:false ) |
|
525 = 'abcdefghijkl '. |
|
526 |
|
527 self assert:( 'abcdefghijkl1234567890' copyTransliterating:'a-zA-Z' to:' ' complement:false squashDuplicates:false ) |
|
528 = ' 1234567890'. |
|
529 |
|
530 self assert:( 'abcdefghijkl1234567890abcdefghijkl' copyTransliterating:'a-zA-Z' to:'' complement:false squashDuplicates:false ) |
|
531 = '1234567890'. |
|
532 |
|
533 self assert:( 'abcdefghijkl1234567890abcdefghijkl' copyTransliterating:'a-zA-Z' to:'' complement:true squashDuplicates:false ) |
|
534 = 'abcdefghijklabcdefghijkl'. |
502 ! ! |
535 ! ! |
503 |
536 |
504 !CollectionTests methodsFor:'tests-sorting'! |
537 !CollectionTests methodsFor:'tests-sorting'! |
505 |
538 |
506 testSort01 |
539 testSort01 |