New test and raising error in differentialValidator

moosetechnology · Nov 17, 2023 · 35edede · 35edede
1 parent 70b2e1a
commit 35edede
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/FAST-Core-Tools/FASTDifferentialValidator.class.st b/src/FAST-Core-Tools/FASTDifferentialValidator.class.st
@@ -74,6 +74,9 @@ FASTDifferentialValidator >> compare: ast1 to: ast2 [
 	(ast1 class = ast2 class)
 		ifFalse: [ self ast: ast1 differ: ast2 ].
 
+	((self childrenNodes: ast1) size = (self childrenNodes: ast2) size)
+		ifFalse: [ self ast: ast1 differ: ast2 ].
+
 	(self childrenNodes: ast1)
 		with: (self childrenNodes: ast2)
 		do: [ :a :b | self compare: a to: b ]