From b20238bd88a088c0df6208d571cfa5bb7ca3c477 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mat=C3=A9o=20Boury?= <matboury@proton.me>
Date: Thu, 27 Jun 2024 14:18:26 +0200
Subject: [PATCH] Try to use iceberg to obtain the repository location

---
 src/MuTalk-CI-Tests/MTCITonelJsonExporterTest.class.st | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/MuTalk-CI-Tests/MTCITonelJsonExporterTest.class.st b/src/MuTalk-CI-Tests/MTCITonelJsonExporterTest.class.st
index 12ed840..c5c3e8c 100644
--- a/src/MuTalk-CI-Tests/MTCITonelJsonExporterTest.class.st
+++ b/src/MuTalk-CI-Tests/MTCITonelJsonExporterTest.class.st
@@ -10,9 +10,8 @@ Class {
 
 { #category : 'tests' }
 MTCITonelJsonExporterTest >> testWorking [
-	"requires https://github.com/mabdi/smalltalk-SmallBank"
 
-	| analysis json moreInfo |
+	| analysis json moreInfo repo |
 	analysis := MTAnalysis new
 		            testClasses: { MTSmallBankTest };
 		            classesToMutate: { MTSmallBank }.
@@ -20,11 +19,14 @@ MTCITonelJsonExporterTest >> testWorking [
 	moreInfo := MTCoveragePropagationPreparation new
 		            mtResult: analysis;
 		            prepare.
+	repo := IceRepository repositories detect: [ :aRepo |
+		aRepo workingCopy packages anySatisfy: [ :package |
+			package name = MTSmallBank package name ] ].
+
 	json := MTCITonelJsonExporter new
 		        mtResult: analysis;
 		        coverageInfo: moreInfo;
-		        cloneLocation: FileLocator localDirectory fullName
-			        , '/iceberg/pharo-contributions/mutalk';
+		        cloneLocation: repo location fullName;
 		        root: 'src';
 		        export.
 	self assert: json class equals: '' class