Improve test cases

source/Buoy-Comparison-Tests/PropertyBasedEqualityCheckerTest.class.st

@@ -12,7 +12,7 @@ PropertyBasedEqualityCheckerTest >> testCheckingIdenticalObjects [
 
 	| checker |
 
-	checker := PropertyBasedEqualityChecker on: self.
+	checker := self equalityChecker.
 	checker compareWith: [ :a :b | self fail ].
 
 	self assert: ( checker checkAgainst: self )
@@ -23,22 +23,31 @@ PropertyBasedEqualityCheckerTest >> testPropertyBlockComparison [
 
 	| checker |
 
-	checker := PropertyBasedEqualityChecker on: #(1 2 3 4).
+	checker := #(1 2 3 4) equalityChecker.
 	checker compare: [ :collection | collection last even ].
 
 	self
 		assert: ( checker checkAgainst: #(2) );
 		assert: ( checker checkAgainst: #(1 2 3 4) );
 		deny: ( checker checkAgainst: #(3) );
-		deny: ( checker checkAgainst: #(1 2 3 3) )
+		deny: ( checker checkAgainst: #(1 2 3 3) ).
+
+	checker := #(1 2 3 3) equalityChecker.
+	checker compare: [ :collection | collection last even ].
+
+	self
+		assert: ( checker checkAgainst: #(1) );
+		assert: ( checker checkAgainst: #(1 2 3 3) );
+		deny: ( checker checkAgainst: #(2) );
+		deny: ( checker checkAgainst: #(1 2 3 4) )
 ]
 
 { #category : #tests }
 PropertyBasedEqualityCheckerTest >> testPropertyComparison [
 
 	| checker |
 
-	checker := PropertyBasedEqualityChecker on: #(1 2 3 4).
+	checker := #(1 2 3 4) equalityChecker.
 	checker compare: #first.
 
 	self
@@ -51,7 +60,7 @@ PropertyBasedEqualityCheckerTest >> testSeveralPropertiesComparison [
 
 	| checker |
 
-	checker := PropertyBasedEqualityChecker on: #(1 2 3 4).
+	checker := #(1 2 3 4) equalityChecker.
 	checker compareAll: #(#first #second).
 
 	self
@@ -65,7 +74,7 @@ PropertyBasedEqualityCheckerTest >> testTypeComparison [
 
 	| checker |
 
-	checker := PropertyBasedEqualityChecker on: self.
+	checker := self equalityChecker.
 
 	self
 		assert: ( checker checkAgainst: self class new );