RegressionTests__CESequenceableCollectionExtensionTest.st
author sr
Tue, 04 Feb 2020 12:10:34 +0100
changeset 2545 56d15e80d7c3
parent 1447 2351db93aa5b
permissions -rw-r--r--
#FEATURE by Stefan Reise class: RegressionTests::WebSocketTest category of: #assertOnEchoServer: #testOnEchoServer class: WebSocketTest added: #assertOnEchoServer: changed: #testOnEchoServer

"{ 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$'
! !