make upload test work in gemstone

SeasideSt · Feb 7, 2024 · 5d01988 · 5d01988
1 parent 51171f0
commit 5d01988
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/...ebDriverFunctionalTestCase.class/instance/testUploadFunctionalTestWithStreamingUploads.st b/...ebDriverFunctionalTestCase.class/instance/testUploadFunctionalTestWithStreamingUploads.st
@@ -2,8 +2,8 @@ testing
 testUploadFunctionalTestWithStreamingUploads
 
 	| originalStreamUploadsSetting |
-	originalStreamUploadsSetting := WAAdmin serverAdaptors first server streamUploads.
+	originalStreamUploadsSetting := self zincServer streamUploads.
 	[ 
-		WAAdmin serverAdaptors first server streamUploads: true.
+		self zincServer streamUploads: true.
 		self testUploadFunctionalTest
-	] ensure: [  WAAdmin serverAdaptors first server streamUploads: originalStreamUploadsSetting. ]
+	] ensure: [ self zincServer streamUploads: originalStreamUploadsSetting. ]
diff --git a/.../Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/zincServer.st b/.../Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/zincServer.st
@@ -0,0 +1,6 @@
+private
+zincServer
+
+	^ (Smalltalk at: #GemServer ifAbsent: [ nil ])
+		  ifNil: [ WAAdmin serverAdaptors first server ]
+		  ifNotNil: [ ((Smalltalk at: #GemServer) gemServerNamed: 'Seaside') serverInstance ]