diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st index 4bff458f5..cccb9d667 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st @@ -62,7 +62,7 @@ baselinecommon: spec package: 'Seaside-WebComponents-Core' with: [ spec requires: #('Seaside-Core' 'Seaside-Canvas' 'Seaside-Component' 'Seaside-RenderLoop') ]; package: 'Seaside-WebComponents-Examples' with: [ - spec requires: #('Seaside-WebComponents-Core') ]; + spec requires: #('Seaside-WebComponents-Core' 'Seaside-Examples') ]; package: 'Seaside-Widgets' with: [ spec requires: #('Seaside-Component' 'Seaside-Canvas' ) ]; package: 'Seaside-HotwireTurbo-Core' with: [ diff --git a/repository/Seaside-Tests-WebComponents.package/.filetree b/repository/Seaside-Tests-WebComponents.package/.filetree new file mode 100644 index 000000000..57a679737 --- /dev/null +++ b/repository/Seaside-Tests-WebComponents.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Seaside-Tests-WebComponents.package/GRPackage.extension/class/seasideTestsWebComponents.st b/repository/Seaside-Tests-WebComponents.package/GRPackage.extension/class/seasideTestsWebComponents.st new file mode 100644 index 000000000..2ddfceb42 --- /dev/null +++ b/repository/Seaside-Tests-WebComponents.package/GRPackage.extension/class/seasideTestsWebComponents.st @@ -0,0 +1,11 @@ +*Seaside-Tests-WebComponents +seasideTestsWebComponents + ^ self new + name: 'Seaside-WebComponents-Examples'; + description: 'Tests for Seaside-WebComponents'; + addDependency: 'Seaside-WebComponents-Core'; + addDependency: 'Seaside-Tests-Core'; + addDependency: 'Seaside-Session'; + addDependency: 'Seaside-Examples'; + url: #seasideUrl; + yourself \ No newline at end of file diff --git a/repository/Seaside-Tests-WebComponents.package/GRPackage.extension/properties.json b/repository/Seaside-Tests-WebComponents.package/GRPackage.extension/properties.json new file mode 100644 index 000000000..ae522a7e0 --- /dev/null +++ b/repository/Seaside-Tests-WebComponents.package/GRPackage.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/README.md b/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/class/shouldInheritSelectors.st b/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/class/shouldInheritSelectors.st new file mode 100644 index 000000000..a1149a441 --- /dev/null +++ b/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/class/shouldInheritSelectors.st @@ -0,0 +1,3 @@ +testing +shouldInheritSelectors + ^ false \ No newline at end of file diff --git a/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/instance/newHandler.st b/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/instance/newHandler.st new file mode 100644 index 000000000..2d5a248d8 --- /dev/null +++ b/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/instance/newHandler.st @@ -0,0 +1,10 @@ +private +newHandler + | application | + application := WAApplication new. + application configuration + addParent: WARenderLoopConfiguration instance. + ^ application + rootClass: WACounter; + preferenceAt: #renderPhaseContinuationClass put: WAFragmentRenderPhaseContinuation; + yourself \ No newline at end of file diff --git a/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/instance/requestWithMethod..st b/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/instance/requestWithMethod..st new file mode 100644 index 000000000..26f461518 --- /dev/null +++ b/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/instance/requestWithMethod..st @@ -0,0 +1,5 @@ +running +requestWithMethod: aString + ^ WARequest + method: aString + uri: '/app/oneo' \ No newline at end of file diff --git a/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/instance/testRendering.st b/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/instance/testRendering.st new file mode 100644 index 000000000..1463dd35d --- /dev/null +++ b/repository/Seaside-Tests-WebComponents.package/WAFragmentRenderingTest.class/instance/testRendering.st @@ -0,0 +1,12 @@ +tests +testRendering + | context request responseContents | + request := self requestWithMethod: 'GET'. + context := WARequestContext request: request response: WABufferedResponse new. + [ handler handle: context ] + on: WAResponseNotification + do: [ :notification | ]. + self assert: context response status = 200. + responseContents := context response contents. + self assert: (responseContents beginsWith: '