Add test for streaming uploads (should fail on gemstone)

SeasideSt · Feb 7, 2024 · 48ae6fb · 48ae6fb
1 parent 3acc9ca
commit 48ae6fb
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 5 deletions.
diff --git a/...ory/Seaside-Tests-Functional.package/WACORSFilterFunctionalTest.class/instance/baseUrl.st b/...ory/Seaside-Tests-Functional.package/WACORSFilterFunctionalTest.class/instance/baseUrl.st
@@ -3,9 +3,7 @@ baseUrl
 
 	| parts url |
 	parts := self requestContext request host findTokens: ':'.
-	url := self requestContext request url withoutSeasideQueryFields 
-		       path: OrderedCollection new.
-
+	url := self requestContext request url withoutSeasideQueryFields path: OrderedCollection new.
 	url host: parts first.
 	parts size > 1 ifTrue: [ url port: parts last asInteger ].
 

diff --git a/repository/Seaside-Tests-Functional.package/monticello.meta/categories.st b/repository/Seaside-Tests-Functional.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Seaside-Tests-Functional'!
+self packageOrganizer ensurePackage: #'Seaside-Tests-Functional' withTags: #()!
diff --git a/...ebDriverFunctionalTestCase.class/instance/testUploadFunctionalTestWithStreamingUploads.st b/...ebDriverFunctionalTestCase.class/instance/testUploadFunctionalTestWithStreamingUploads.st
@@ -0,0 +1,9 @@
+testing
+testUploadFunctionalTestWithStreamingUploads
+
+	| originalStreamUploadsSetting |
+	originalStreamUploadsSetting := WAAdmin serverAdaptors first server streamUploads.
+	[ 
+		WAAdmin serverAdaptors first server streamUploads: true.
+		self testUploadFunctionalTest
+	] ensure: [  WAAdmin serverAdaptors first server streamUploads: originalStreamUploadsSetting. ]
diff --git a/repository/Seaside-Tests-Parasol.package/monticello.meta/categories.st b/repository/Seaside-Tests-Parasol.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Seaside-Tests-Parasol'!
+self packageOrganizer ensurePackage: #'Seaside-Tests-Parasol' withTags: #()!
Original file line number	Diff line number	Diff line change
		@@ -1 +1 @@
		SystemOrganization addCategory: #'Seaside-Tests-Functional'!
		self packageOrganizer ensurePackage: #'Seaside-Tests-Functional' withTags: #()!