From 7254a2ae0ba40b29c04b8924f27739614229432b Mon Sep 17 00:00:00 2001
From: despresc <christian.j.j.despres@gmail.com>
Date: Sat, 28 Mar 2020 18:22:48 -0400
Subject: Implement the new Table type

---
 test/creole-reader.native | 57 ++++++++++++++++++++++++++++++++++-------------
 1 file changed, 41 insertions(+), 16 deletions(-)

(limited to 'test/creole-reader.native')

diff --git a/test/creole-reader.native b/test/creole-reader.native
index a7e85d969..f9e0f6d28 100644
--- a/test/creole-reader.native
+++ b/test/creole-reader.native
@@ -69,25 +69,50 @@ Pandoc (Meta {unMeta = fromList []})
 ,Para [Image ("",[],[]) [Str "here is a red flower"] ("Red-Flower.jpg","")]
 ,Header 3 ("",[],[]) [Str "Creole 0.4"]
 ,Para [Str "Tables",Space,Str "are",Space,Str "done",Space,Str "like",Space,Str "this:"]
-,Table [] [AlignDefault,AlignDefault] [0.0,0.0]
- [[Plain [Str "header",Space,Str "col1"]]
- ,[Plain [Str "header",Space,Str "col2"]]]
- [[[Plain [Str "col1"]]
-  ,[Plain [Str "col2"]]]
- ,[[Plain [Str "you"]]
-  ,[Plain [Str "can"]]]
- ,[[Plain [Str "also"]]
-  ,[Plain [Str "align",LineBreak,Str "it."]]]]
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignDefault,Nothing),(AlignDefault,Nothing)] 0
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "header",Space,Str "col1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "header",Space,Str "col2"]]]]
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "col1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "col2"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "you"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "can"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "also"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "align",LineBreak,Str "it."]]]]
+ []
 ,Para [Str "You",Space,Str "can",Space,Str "format",Space,Str "an",Space,Str "address",Space,Str "by",Space,Str "simply",Space,Str "forcing",Space,Str "linebreaks:"]
 ,Para [Str "My",Space,Str "contact",Space,Str "dates:",LineBreak,Str "Pone:",Space,Str "xyz",LineBreak,Str "Fax:",Space,Str "+45",LineBreak,Str "Mobile:",Space,Str "abc"]
 ,Header 3 ("",[],[]) [Str "Creole 0.5"]
-,Table [] [AlignDefault,AlignDefault] [0.0,0.0]
- [[Plain [Str "Header",Space,Str "title"]]
- ,[Plain [Str "Another",Space,Str "header",Space,Str "title"]]]
- [[[Plain [Code ("",[],[]) " //not italic text// "]]
-  ,[Plain [Code ("",[],[]) " **not bold text** "]]]
- ,[[Plain [Emph [Str "italic",Space,Str "text"]]]
-  ,[Plain [Strong [Space,Str "bold",Space,Str "text",Space]]]]]
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignDefault,Nothing),(AlignDefault,Nothing)] 0
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Header",Space,Str "title"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Another",Space,Str "header",Space,Str "title"]]]]
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Code ("",[],[]) " //not italic text// "]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Code ("",[],[]) " **not bold text** "]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Emph [Str "italic",Space,Str "text"]]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Strong [Space,Str "bold",Space,Str "text",Space]]]]]
+ []
 ,Header 3 ("",[],[]) [Str "Creole 1.0"]
 ,Para [Str "If",Space,Str "interwiki",Space,Str "links",Space,Str "are",Space,Str "setup",Space,Str "in",Space,Str "your",Space,Str "wiki,",Space,Str "this",Space,Str "links",Space,Str "to",Space,Str "the",Space,Str "WikiCreole",Space,Str "page",Space,Str "about",Space,Str "Creole",Space,Str "1.0",Space,Str "test",Space,Str "cases:",Space,Link ("",[],[]) [Str "WikiCreole:Creole1.0TestCases"] ("WikiCreole:Creole1.0TestCases",""),Str "."]
 ,HorizontalRule
-- 
cgit v1.2.3