Additional test for file upload

SeasideSt · Jan 2, 2024 · 0b1ff92 · 0b1ff92
1 parent e2d0805
commit 0b1ff92
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/repository/Parasol-Tests.package/BPMiscTestCase.class/instance/testFileUpload.st b/repository/Parasol-Tests.package/BPMiscTestCase.class/instance/testFileUpload.st
@@ -2,17 +2,18 @@ testing
 testFileUpload
 
 	| fileupload filesubmit file receivedFile |
-	
+
 	file := BPSmalltalkPlatform current fileWrite: 'Test.data' contents: 'Hello World!'.
 
 	[
 		fileupload := driver findElementByXPath: ('//input[@type=''file'']').
 		filesubmit := driver findElementByID: 'sendFile'.
 		fileupload sendKeys: file.
 		filesubmit click.
-	
+
 		receivedFile := self waitUntil: [ self componentUnderTest receivedFile ] is: [ :value | value notNil ]
 			checkEvery: (Duration milliseconds: 100) timeoutAfter: (Duration seconds: 5) with: [ nil ].
 		self assert: receivedFile notNil.
-		self assert: (receivedFile contentsDecodedUsing: 'UTF-8') = 'Hello World!'.
-	] ensure: [  BPSmalltalkPlatform current fileDelete: file ].
+		self assert: (receivedFile isKindOf: WAFile).
+		self assert: (receivedFile contentsDecodedUsing: 'UTF-8') equals: 'Hello World!'.
+	] ensure: [  BPSmalltalkPlatform current fileDelete: file ]