Added coverage for in memory repository module

ba-st · Jan 30, 2024 · 476a1d7 · 476a1d7
1 parent 975580f
commit 476a1d7
Showing 1 changed file with 37 additions and 0 deletions.
diff --git a/source/Sagan-Kepler-Tests/InMemoryRepositoryProviderModuleTest.class.st b/source/Sagan-Kepler-Tests/InMemoryRepositoryProviderModuleTest.class.st
@@ -0,0 +1,37 @@
+Class {
+	#name : 'InMemoryRepositoryProviderModuleTest',
+	#superclass : 'TestCase',
+	#category : 'Sagan-Kepler-Tests',
+	#package : 'Sagan-Kepler-Tests'
+}
+
+{ #category : 'private - accessing' }
+InMemoryRepositoryProviderModuleTest >> repositoryIn: aUserStory [
+
+	^ aUserStory rootSystem >> #RepositoryProviderSystem
+		  createRepositoryFor: #mainDB
+		  storingObjectsOfType: CelestialBody
+		  checkingConflictsAccordingTo: DoNotCheckForConflictsStrategy new
+]
+
+{ #category : 'tests' }
+InMemoryRepositoryProviderModuleTest >> testInstallation [
+
+	| userStory celestialBodies |
+
+	userStory := self userStoryTest.
+	userStory setUp.
+	celestialBodies := self repositoryIn: userStory.
+
+	self assert: celestialBodies findAll isEmpty
+]
+
+{ #category : 'private - accessing' }
+InMemoryRepositoryProviderModuleTest >> userStoryTest [
+
+	^ PluggableUserStoryTest requiring: [ :test |
+		  test registerSubsystem: ( RepositoryProviderSystem new
+				    register: InMemoryRepositoryProvider new as: #mainDB;
+				    yourself )
+		  ]
+]