Added deprecation. Improved expected GS time limit when using indexes

ba-st · Jan 9, 2024 · 147a608 · 147a608
1 parent 0d2d856
commit 147a608
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 2 deletions.
diff --git a/source/Sagan-Deprecated-V8/RepositoryBehavior.extension.st b/source/Sagan-Deprecated-V8/RepositoryBehavior.extension.st
@@ -0,0 +1,12 @@
+Extension { #name : 'RepositoryBehavior' }
+
+{ #category : '*Sagan-Deprecated-V8' }
+RepositoryBehavior >> configureMappingsIn: aBlock [
+
+	self
+		deprecated: 'Use configureWith: instead'
+		transformWith:
+		'`@receiver configureMappingsIn: `@argument' -> '`@receiver configureWith: `@argument'.
+
+	self configureWith: aBlock
+]
diff --git a/source/Sagan-Deprecated-V8/package.st b/source/Sagan-Deprecated-V8/package.st
@@ -0,0 +1 @@
+Package { #name : 'Sagan-Deprecated-V8' }
diff --git a/source/Sagan-GemStone-Tests/GemStoneRepositoryProviderTest.class.st b/source/Sagan-GemStone-Tests/GemStoneRepositoryProviderTest.class.st
@@ -70,13 +70,13 @@ GemStoneRepositoryProviderTest >> testSpaceshipQueryingForZeroFirepower [
 { #category : 'private - accessing' }
 GemStoneRepositoryProviderTest >> timeLimitInMillisecondsWhenAdding [
 
-	^ 2000
+	^ 200
 ]
 
 { #category : 'private - accessing' }
 GemStoneRepositoryProviderTest >> timeLimitInMillisecondsWhenQuerying [
 
-	^ 100
+	^ 3
 ]
 
 { #category : 'utility' }