added basic tests for microdown renderer

Author: Johan Brichau

repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st

@@ -63,6 +63,8 @@ baselinecommon: spec
 				spec requires: #('Seaside-Core' 'Seaside-Canvas' 'Seaside-Component' 'Seaside-RenderLoop') ];
 			package: 'Seaside-WebComponents-Examples' with: [
 				spec requires: #('Seaside-WebComponents-Core' 'Seaside-Examples') ];
+			package: 'Seaside-Microdown' with: [ 
+				spec requires: #('Seaside-Canvas' "TODO: requires microdown") ];
 			package: 'Seaside-Widgets' with: [
 				spec requires: #('Seaside-Component' 'Seaside-Canvas' ) ];
 			package: 'Seaside-HotwireTurbo-Core' with: [
@@ -93,6 +95,8 @@ baselinecommon: spec
 				spec requires: #('Seaside-RenderLoop' 'Seaside-Tests-Session' ). ];
 			package: 'Seaside-Tests-Session' with: [
 				spec requires: #('Seaside-Tests-Core' 'Seaside-Session' 'Seaside-Tests-Canvas'). ];
+			package: 'Seaside-Tests-Microdown' with: [ 
+				spec requires: #('Seaside-Microdown') ];
 			package: 'Seaside-Tests-Tools-Web' with: [
 				spec requires: #('Seaside-Tools-Web' 'Seaside-Tests-Environment' ). ];
 			package: 'Seaside-Tests-UTF8' with: [
@@ -111,7 +115,7 @@ baselinecommon: spec
 			group: 'All' with: #('Tests' 'Development Tests');
 
 			group: 'Core' with: #('Seaside-Core' 'Seaside-Continuation' 'Seaside-Canvas' 'Seaside-Session' 'Seaside-Component' 'Seaside-RenderLoop' 'Seaside-Tools-Core' 'Seaside-Flow' 'Seaside-Environment' 'Seaside-Widgets' );
-			group: 'Tests' with: #('Core' 'Seaside-Tests-Core' 'Seaside-Tests-Canvas' 'Seaside-Tests-Session' 'Seaside-Tests-Component' 'Seaside-Tests-RenderLoop' 'Seaside-Tests-Environment' 'Seaside-Tests-Flow' 'Seaside-Tests-UTF8' 'Seaside-Tests-InternetExplorer' 'Seaside-Tests-Email' 'Seaside-Tests-Examples' 'Seaside-Tests-WebComponents' 'RSS Tests' 'Welcome Tests' 'REST Tests' 'Swagger Tests' 'Seaside-Tests-Parasol' 'Seaside-Tests-HotwireTurbo');
+			group: 'Tests' with: #('Core' 'Seaside-Tests-Core' 'Seaside-Tests-Canvas' 'Seaside-Tests-Session' 'Seaside-Tests-Component' 'Seaside-Tests-RenderLoop' 'Seaside-Tests-Environment' 'Seaside-Tests-Flow' 'Seaside-Tests-UTF8' 'Seaside-Tests-InternetExplorer' 'Seaside-Tests-Email' 'Seaside-Tests-Examples' 'Seaside-Tests-WebComponents' 'RSS Tests' 'Welcome Tests' 'REST Tests' 'Swagger Tests' 'Seaside-Tests-Parasol' 'Seaside-Tests-HotwireTurbo' 'Seaside-Tests-Microdown');
 			group: 'Hotwired' with: #('Seaside-HotwireTurbo-Core');
 			group: 'Development' with: #('Core' 'Seaside-Development');
 			group: 'Development Tests' with: #('Development' 'Core' 'Seaside-Tests-Development');

repository/Seaside-Microdown.package/WAMicroDownRenderer.class/instance/visitHeader..st

@@ -1,6 +1,6 @@
 visiting
 visitHeader: aHeader
-	
+
 	canvas heading
 		level: aHeader level;
 		with: [ super visitHeader: aHeader ]

repository/Seaside-Microdown.package/WAMicroDownRenderer.class/instance/visitTable..st

@@ -0,0 +1,8 @@
+visiting
+visitTable: aTable
+
+	canvas table: [ 
+		aTable rows do: [ :row |
+			canvas tableRow: [
+				row do: [ :el |
+					canvas tableData: [ el do: [ :some | some accept: self ] ] ] ] ] ]

repository/Seaside-Tests-Microdown.package/.filetree

@@ -0,0 +1,5 @@
+{
+	"separateMethodMetaAndSource" : false,
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}

repository/Seaside-Tests-Microdown.package/WAMicroDownRendererTest.class/README.md

@@ -0,0 +1,6 @@
+asserting
+assertMicroDown: aMicrodownString rendersTo: htmlString
+
+	| renderedString |
+	renderedString := WAHtmlCanvas builder render:[ :html | WAMicroDownRenderer on: html render: aMicrodownString ].
+	self assert: renderedString equals: htmlString.

repository/Seaside-Tests-Microdown.package/WAMicroDownRendererTest.class/instance/assertMicroDown.rendersTo..st

@@ -0,0 +1,14 @@
+basic tests
+testHeader
+
+	self
+		assertMicroDown: '# Heading 1'
+		rendersTo: '<h1>Heading 1</h1>'.
+
+	self
+		assertMicroDown: '## Heading 2'
+		rendersTo: '<h2>Heading 2</h2>'.
+
+	self
+		assertMicroDown: '### Heading 3'
+		rendersTo: '<h3>Heading 3</h3>'.

repository/Seaside-Tests-Microdown.package/WAMicroDownRendererTest.class/instance/testHeader.st

@@ -0,0 +1,6 @@
+basic tests
+testLink
+
+	self
+		assertMicroDown: '[Programmatic HTML generation](https://github.com/SeasideSt/Seaside/wiki/Generating-HTML)'
+		rendersTo: '<p><a href="https://github.com/SeasideSt/Seaside/wiki/Generating-HTML">Programmatic HTML generation</a></p>'

repository/Seaside-Tests-Microdown.package/WAMicroDownRendererTest.class/instance/testLink.st

@@ -0,0 +1,8 @@
+basic tests
+testOrderedList
+
+	self
+		assertMicroDown: '1. Item 1 
+2. Item 2
+3. Item 3'
+		rendersTo: '<ol><li>Item 1</li><li>Item 2</li><li>Item 3</li></ol>'

repository/Seaside-Tests-Microdown.package/WAMicroDownRendererTest.class/instance/testOrderedList.st

@@ -0,0 +1,8 @@
+basic tests
+testTable
+
+	self
+		assertMicroDown: 
+'| aaa | bbb
+| ccc | ddd'
+		rendersTo: '<table><tr><td>aaa</td><td>bbb</td></tr><tr><td>ccc</td><td>ddd</td></tr></table>'