File upload testing

.github/workflows/ci.yml

@@ -13,11 +13,9 @@ jobs:
         include:
           - smalltalk: Pharo64-12
             experimental: true
-          - smalltalk: Squeak64-5.3
-            experimental: true
-          - smalltalk: Squeak-5.2
+          - smalltalk: Squeak64-6.0
             experimental: true
-          - smalltalk: Squeak-5.1
+          - smalltalk: Squeak64-5.3
             experimental: true
     continue-on-error: ${{ matrix.experimental }}
     name: ${{ matrix.smalltalk }}

.smalltalk.ston

@@ -4,7 +4,7 @@ SmalltalkCISpec {
       #baseline : 'Seaside3',
       #directory : 'repository',
       #load : [ 'CI' ],
-      #onConflict : #useLoaded,
+      #onConflict : #useIncoming,
       #useLatestMetacello : false,
       #onWarningLog : true,
       #platforms : [ #pharo ]
@@ -13,7 +13,7 @@ SmalltalkCISpec {
       #baseline : 'Seaside3',
       #directory : 'repository',
       #load : [ 'CI' ],
-      #onConflict : #useLoaded,
+      #onConflict : #useIncoming,
       #useLatestMetacello : true,
       #onWarningLog : true,
       #platforms : [ #squeak ]
@@ -22,7 +22,7 @@ SmalltalkCISpec {
       #baseline : 'Seaside3',
       #directory : 'repository',
       #onWarningLog : true,
-      #onConflict : #useLoaded,
+      #onConflict : #useIncoming,
       #load : [ 'CI' ],
       #platforms : [ #gemstone ]
     }

repository/BaselineOfSeaside3.package/monticello.meta/categories.st

@@ -1 +1 @@
-SystemOrganization addCategory: #BaselineOfSeaside3!
+self packageOrganizer ensurePackage: #BaselineOfSeaside3 withTags: #()!

repository/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 ].
 

repository/Seaside-Tests-Functional.package/monticello.meta/categories.st

@@ -1 +1 @@
-SystemOrganization addCategory: #'Seaside-Tests-Functional'!
+self packageOrganizer ensurePackage: #'Seaside-Tests-Functional' withTags: #()!

repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/expectedFailures.st

@@ -1,7 +1,7 @@
-running
+testing
 expectedFailures
 	| todo |
-	todo := #(testExpiryFunctionalTest testFilterFunctionalTest testUploadFunctionalTest).
+	todo := #(testExpiryFunctionalTest testFilterFunctionalTest).
 	^ (GRPlatform current class == (Smalltalk at: #GRGemStonePlatform ifAbsent:[ nil ]))
-		ifTrue: [ #(testContextFunctionalTest), todo "requires https://github.com/GsDevKit/Grease/pull/17 to be merged" ]
+		ifTrue: [ #(testUploadFunctionalTestWithStreamingUploads testContextFunctionalTest), todo ]
 		ifFalse:[  todo ]

repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testUploadFunctionalTest.st

@@ -1,5 +1,18 @@
 testing
 testUploadFunctionalTest
+
+	| filePathString |
 	self selectTest: 'WAUploadFunctionalTest'.
-
-	self fail.
+
+	[ 
+		filePathString := GRPlatform current newTemporaryFileNamed: 'testfile.txt'.
+		GRPlatform current
+			writeFileStreamOn: filePathString
+			do: [ :stream | stream nextPutAll: 'blabla' ]
+			binary: false.
+
+		(driver findElementByCSSSelector: 'input[type=file]') sendKeys: filePathString.
+		(driver findElementByCSSSelector: 'input[value=Load]') click.
+
+		self assert: (driver findElementByCSSSelector: 'pre') getText equals: 'blabla'
+	] ensure: [ GRPlatform current deleteFile: filePathString ]

repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testUploadFunctionalTestWithStreamingUploads.st

@@ -0,0 +1,9 @@
+testing
+testUploadFunctionalTestWithStreamingUploads
+
+	| originalStreamUploadsSetting |
+	originalStreamUploadsSetting := self zincServer streamUploads.
+	[ 
+		self zincServer streamUploads: true.
+		self testUploadFunctionalTest
+	] ensure: [ self zincServer streamUploads: originalStreamUploadsSetting. ]

repository/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 ]

repository/Seaside-Tests-Parasol.package/monticello.meta/categories.st

@@ -1 +1 @@
-SystemOrganization addCategory: #'Seaside-Tests-Parasol'!
+self packageOrganizer ensurePackage: #'Seaside-Tests-Parasol' withTags: #()!

repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st

@@ -1,10 +1,10 @@
 private
 parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock
-	| fullBoundary file |
+	| fullBoundary filePathString |
 	fullBoundary := String crlf asByteArray, aBoundary.
-	file := GRPlatform current newTemporaryFileReference.
+	filePathString := GRPlatform current newTemporaryFile.
 	GRPlatform current
-		writeFileStreamOn: file pathString
+		writeFileStreamOn: filePathString
 		do: [ :writer |
 			self
 				parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary
@@ -13,4 +13,4 @@
 
 	aBlock
 		value: aMimePart
-		value: file pathString
+		value: filePathString