update tests

pharo-graphics · Oct 10, 2023 · 6a82fd5 · 6a82fd5
1 parent dc6312d
commit 6a82fd5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/src/Roassal-Layouts-Tests/RSClusteringLayoutTest.class.st b/src/Roassal-Layouts-Tests/RSClusteringLayoutTest.class.st
@@ -24,7 +24,7 @@ RSClusteringLayoutTest >> testBasic [
 		ifNotConnectedThen: RSGridLayout new;
 		else: (RSClusteringLayout new
 				 clustersLayout: RSFlowLayout new;
-				 forEachLayout: RSTreeLayout new);
+				 forEachLayout: (RSTreeLayout new childrenSortBlock: [:a :b| a model < b model]));
 		on: nodes.
 	self assertIntegerPosition: nodes equals: {
 29 @ 5.

diff --git a/src/Roassal-Layouts-Tests/RSLayoutTestCase.class.st b/src/Roassal-Layouts-Tests/RSLayoutTestCase.class.st
@@ -8,6 +8,5 @@ Class {
 RSLayoutTestCase >> assertIntegerPosition: aGroupOfShapes equals: anArray [
 	| col |
 	col := aGroupOfShapes collect: [ :each | each position asIntegerPoint ] as: Array.
-	self assert: col size equals: anArray size.
-	col do: [ :each | self assert: (anArray includes: each) ]
+	self assert: col equals: anArray.
 ]