RegressionTests__CESequenceableCollectionExtensionTest.st
author sr
Tue, 29 May 2018 15:57:59 +0200
changeset 1942 ade44c2e9798
parent 1447 2351db93aa5b
permissions -rw-r--r--
#BUGFIX by sr class: RegressionTests::HTTPServerTests class definition added: #setUp #tearDown #test01_startup_shutdown #test02_simpleResponses #test03_restResponse class: RegressionTests::HTTPServerTests class added: #version #version_CVS

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