update tests for jgm/pandoc-types#36

test/Tests/Writers/Muse.hs

@@ -273,10 +273,11 @@ tests = [ testGroup "block elements"
                       ]
             , "table with header and caption" =:
               let caption = text "Table 1"
+                  specs = [(AlignDefault, 0), (AlignDefault, 0)]
                   headers = [plain $ text "header 1", plain $ text "header 2"]
                   rows = [[para $ text "Para 1.1", para $ text "Para 1.2"]
                          ,[para $ text "Para 2.1", para $ text "Para 2.2"]]
-              in table caption mempty headers rows
+              in table caption specs headers rows 
               =?> unlines [ " header 1 || header 2"
                           , " Para 1.1 |  Para 1.2"
                           , " Para 2.1 |  Para 2.2"

test/command/2649.md

@@ -90,16 +90,19 @@
 <td><p>1</p></td>
 <td><p><a href="Sébastien_Loeb" title="wikilink">Sébastien Loeb</a></p></td>
 <td><p>78</p></td>
+<td></td>
 </tr>
 <tr class="odd">
 <td><p>2</p></td>
 <td><p><strong><a href="Sébastien_Ogier" title="wikilink">Sébastien Ogier</a></strong></p></td>
 <td><p>38</p></td>
+<td></td>
 </tr>
 <tr class="even">
 <td><p>10</p></td>
 <td><p><a href="Hannu_Mikkola" title="wikilink">Hannu Mikkola</a></p></td>
 <td><p>18</p></td>
+<td></td>
 </tr>
 </tbody>
 </table>

test/command/3337.md

@@ -5,9 +5,9 @@
 <tr><td>1</td><td>2</td></tr>
 </table>
 ^D
-  --- ---
-  a   
-  1   2
-  --- ---
+  ---
+  a
+  1
+  ---
 ```