From 5d01988770706df8e475491b0f89c4d3a7fd7920 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Wed, 7 Feb 2024 19:01:44 +0100 Subject: [PATCH] make upload test work in gemstone --- .../testUploadFunctionalTestWithStreamingUploads.st | 6 +++--- .../instance/zincServer.st | 6 ++++++ 2 files changed, 9 insertions(+), 3 deletions(-) create mode 100644 repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/zincServer.st diff --git a/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testUploadFunctionalTestWithStreamingUploads.st b/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testUploadFunctionalTestWithStreamingUploads.st index 878a8ddc7..3e1846773 100644 --- a/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testUploadFunctionalTestWithStreamingUploads.st +++ b/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.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. ] \ No newline at end of file + ] ensure: [ self zincServer streamUploads: originalStreamUploadsSetting. ] \ No newline at end of file diff --git a/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/zincServer.st b/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/zincServer.st new file mode 100644 index 000000000..462d277c5 --- /dev/null +++ b/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 ] \ No newline at end of file