From 35edede0fc1de5f90833988eedd4c9c52f5f9e63 Mon Sep 17 00:00:00 2001 From: anquetil Date: Fri, 17 Nov 2023 15:25:37 +0100 Subject: [PATCH] New test and raising error in differentialValidator --- src/FAST-Core-Tools/FASTDifferentialValidator.class.st | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/FAST-Core-Tools/FASTDifferentialValidator.class.st b/src/FAST-Core-Tools/FASTDifferentialValidator.class.st index 4ee6a8b..b4d772f 100644 --- 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 ]