RegressionTests__CESequenceableCollectionExtensionTest.st
author sr
Tue, 04 Feb 2020 12:27:07 +0100
changeset 2546 c4dbc7a9249b
parent 1447 2351db93aa5b
permissions -rw-r--r--
#FEATURE by Stefan Reise class: RegressionTests::WebSocketTest removed: #byteArray500 #data500 #testCommunication100WithMasking #testCommunication100WithoutMasking #testCommunication500 #testCommunicationByteArray500 #testMask500 #testMask500Speed category of: #testCommunication100Speed #testMask100Speed #testParallelSocketWrite class: WebSocketTest changed: #testCommunicationFilename #testParallelSocketWrite

"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#CESequenceableCollectionExtensionTest
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-CollectionExtensions'
!


!CESequenceableCollectionExtensionTest methodsFor:'tests'!

testPairsSimilarityWith
	
	self assert: ('1234' pairsSimilarityWith: '2234') equals: (2/3).
	self assert: ('1234' pairsSimilarityWith: '123') equals: (4/5).
	self assert: ('1234' pairsSimilarityWith: '5678') equals: 0
! !

!CESequenceableCollectionExtensionTest class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !