From 870ea4ee66ab79bea4410fcbcbe90d98bda23161 Mon Sep 17 00:00:00 2001
From: anquetil <nicolas.anquetil@inria.fr>
Date: Sun, 8 Dec 2024 18:00:59 +0100
Subject: [PATCH] testing setting in MiDependencyStructuralMatrixBrowserModel

---
 ...ndencyStructuralMatrixBrowserTest.class.st | 67 +++++++++++++++++++
 1 file changed, 67 insertions(+)

diff --git a/src/MooseIDE-Tests/MiDependencyStructuralMatrixBrowserTest.class.st b/src/MooseIDE-Tests/MiDependencyStructuralMatrixBrowserTest.class.st
index 39e16575a..73860e219 100644
--- a/src/MooseIDE-Tests/MiDependencyStructuralMatrixBrowserTest.class.st
+++ b/src/MooseIDE-Tests/MiDependencyStructuralMatrixBrowserTest.class.st
@@ -91,6 +91,28 @@ MiDependencyStructuralMatrixBrowserTest >> testDoesNotOpenEmptyDetailedDSM [
 	self assert: detailedDSM isNil
 ]
 
+{ #category : #tests }
+MiDependencyStructuralMatrixBrowserTest >> testDontShowSelfDependenciesHideDiagonalWeight [
+
+	| tuple |
+	browser model settings setItem: #selfDependenciesSetting value: false.
+	tuple := (AITarjanNode with: #entityA) -> (AITarjanNode with: #entityA).
+	browser model dependencyDictionary: (Dictionary newFromPairs: { (#entityA -> #entityA) . #(1 2 3) }).
+
+	self assert: (browser model getTupleDependencyWeight: tuple) equals: 0.
+]
+
+{ #category : #tests }
+MiDependencyStructuralMatrixBrowserTest >> testDontShowSelfDependenciesShowNonDiagonalWeight [
+
+	| tuple |
+	browser model settings setItem: #selfDependenciesSetting value: false.
+	tuple := (AITarjanNode with: #entityA) -> (AITarjanNode with: #entityB).
+	browser model dependencyDictionary: (Dictionary newFromPairs: { (#entityA -> #entityB) . #(1 2 3) }).
+
+	self assert: (browser model getTupleDependencyWeight: tuple) equals: 3.
+]
+
 { #category : #tests }
 MiDependencyStructuralMatrixBrowserTest >> testDoubleClickCallsUserAction [
 	"sets a fake spec model on the visualization to check that #userAction: is called
@@ -213,6 +235,51 @@ MiDependencyStructuralMatrixBrowserTest >> testOutgoingDependencyFromVariableDec
 	]
 ]
 
+{ #category : #tests }
+MiDependencyStructuralMatrixBrowserTest >> testSettingsAction [
+
+	self assert: browser hasSettings
+]
+
+{ #category : #tests }
+MiDependencyStructuralMatrixBrowserTest >> testSettingsChanged [
+
+	| stubDSM redrawn |
+	redrawn := false.
+	stubDSM := Mock new.
+	stubDSM stub run will: [ redrawn := true ].
+	browser mainPresenter: stubDSM.
+
+	browser model settingsChanged: true.
+		
+	self assert: redrawn
+]
+
+{ #category : #tests }
+MiDependencyStructuralMatrixBrowserTest >> testSettingsNotChanged [
+
+	| stubDSM redrawn |
+	redrawn := false.
+	stubDSM := Mock new.
+	stubDSM stub run will: [ redrawn := true ].
+	browser mainPresenter: stubDSM.
+
+	browser model settingsChanged: false.
+		
+	self deny: redrawn
+]
+
+{ #category : #tests }
+MiDependencyStructuralMatrixBrowserTest >> testShowSelfDependenciesDoNotHideDiagonalWeight [
+
+	| tuple |
+	browser model settings setItem: #selfDependenciesSetting value: true.
+	tuple := (AITarjanNode with: #entityA) -> (AITarjanNode with: #entityA).
+	browser model dependencyDictionary: (Dictionary newFromPairs: { (#entityA -> #entityA) . #(1 2 3) }).
+
+	self assert: (browser model getTupleDependencyWeight: tuple) equals: 3.
+]
+
 { #category : #tests }
 MiDependencyStructuralMatrixBrowserTest >> testTitleOfDSM [