Lua: re-add `content` property to Strikeout elements

Fixes a regression introduced in 2.15.

2 files changed, 95 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Lua/Marshaling/AST.hs b/src/Text/Pandoc/Lua/Marshaling/AST.hs
index 4363f7e4f..e73ff43b5 100644
--- a/src/Text/Pandoc/Lua/Marshaling/AST.hs
+++ b/src/Text/Pandoc/Lua/Marshaling/AST.hs
@@ -625,6 +625,7 @@ setInlineContent = \case
   Quoted qt _   -> Actual . Quoted qt . inlineContent
   SmallCaps _   -> Actual . SmallCaps . inlineContent
   Span attr _   -> Actual . Span attr . inlineContent
+  Strikeout _   -> Actual . Strikeout . inlineContent
   Strong _      -> Actual . Strong . inlineContent
   Subscript _   -> Actual . Subscript . inlineContent
   Superscript _ -> Actual . Superscript . inlineContent
@@ -651,6 +652,7 @@ getInlineContent = \case
   Quoted _ inlns    -> Actual $ ContentInlines inlns
   SmallCaps inlns   -> Actual $ ContentInlines inlns
   Span _ inlns      -> Actual $ ContentInlines inlns
+  Strikeout inlns   -> Actual $ ContentInlines inlns
   Strong inlns      -> Actual $ ContentInlines inlns
   Subscript inlns   -> Actual $ ContentInlines inlns
   Superscript inlns -> Actual $ ContentInlines inlns
diff --git a/test/lua/module/pandoc.lua b/test/lua/module/pandoc.lua
index be1cbbde1..ba2b823f8 100644
--- a/test/lua/module/pandoc.lua
+++ b/test/lua/module/pandoc.lua
@@ -191,14 +191,49 @@ return {
         assert.are_equal(pandoc.Code('1 + 1'), code)
       end),
     },
+    group 'Emph' {
+      test('has property `content`', function ()
+        local elem = pandoc.Emph{'two', pandoc.Space(), 'words'}
+        assert.are_same(
+          elem.content,
+          {pandoc.Str 'two', pandoc.Space(), pandoc.Str 'words'}
+        )
+        elem.content = {'word'}
+        assert.are_equal(elem, pandoc.Emph{'word'})
+      end)
+    },
     group 'Image' {
       test('has property `caption`', function ()
         local img = pandoc.Image('example', 'a.png')
         assert.are_same(img.caption, {pandoc.Str 'example'})
 
-        img.caption = {pandoc.Str 'A'}
-        assert.are_equal(img, pandoc.Image({pandoc.Str 'A'}, 'a.png'))
+        img.caption = 'A'
+        assert.are_equal(img, pandoc.Image({'A'}, 'a.png'))
       end),
+      test('has property `src`', function ()
+        local img = pandoc.Image('example', 'sample.png')
+        assert.are_same(img.src, 'sample.png')
+
+        img.src = 'example.svg'
+        assert.are_equal(img, pandoc.Image('example', 'example.svg'))
+      end),
+      test('has property `title`', function ()
+        local img = pandoc.Image('here', 'img.gif', 'example')
+        assert.are_same(img.title, 'example')
+
+        img.title = 'a'
+        assert.are_equal(img, pandoc.Image('here', 'img.gif', 'a'))
+      end),
+      test('has property `attr`', function ()
+        local img = pandoc.Image('up', 'upwards.png', '', {'up', {'point'}})
+        assert.are_same(img.attr, pandoc.Attr {'up', {'point'}})
+
+        img.attr = pandoc.Attr {'up', {'point', 'button'}}
+        assert.are_equal(
+          pandoc.Image('up', 'upwards.png', nil, {'up', {'point', 'button'}}),
+          img
+        )
+      end)
     },
     group 'Link' {
       test('has property `content`', function ()
@@ -233,7 +268,62 @@ return {
           link
         )
       end)
-    }
+    },
+    group 'Strikeout' {
+      test('has property `content`', function ()
+        local elem = pandoc.Strikeout{'two', pandoc.Space(), 'words'}
+        assert.are_same(
+          elem.content,
+          {pandoc.Str 'two', pandoc.Space(), pandoc.Str 'words'}
+        )
+        elem.content = {'word'}
+        assert.are_equal(elem, pandoc.Strikeout{'word'})
+      end)
+    },
+    group 'Strong' {
+      test('has property `content`', function ()
+        local elem = pandoc.Strong{'two', pandoc.Space(), 'words'}
+        assert.are_same(
+          elem.content,
+          {pandoc.Str 'two', pandoc.Space(), pandoc.Str 'words'}
+        )
+        elem.content = {'word'}
+        assert.are_equal(elem, pandoc.Strong{'word'})
+      end)
+    },
+    group 'Subscript' {
+      test('has property `content`', function ()
+        local elem = pandoc.Subscript{'two', pandoc.Space(), 'words'}
+        assert.are_same(
+          elem.content,
+          {pandoc.Str 'two', pandoc.Space(), pandoc.Str 'words'}
+        )
+        elem.content = {'word'}
+        assert.are_equal(elem, pandoc.Subscript{'word'})
+      end)
+    },
+    group 'Superscript' {
+      test('has property `content`', function ()
+        local elem = pandoc.Superscript{'two', pandoc.Space(), 'words'}
+        assert.are_same(
+          elem.content,
+          {pandoc.Str 'two', pandoc.Space(), pandoc.Str 'words'}
+        )
+        elem.content = {'word'}
+        assert.are_equal(elem, pandoc.Superscript{'word'})
+      end)
+    },
+    group 'Underline' {
+      test('has property `content`', function ()
+        local elem = pandoc.Underline{'two', pandoc.Space(), 'words'}
+        assert.are_same(
+          elem.content,
+          {pandoc.Str 'two', pandoc.Space(), pandoc.Str 'words'}
+        )
+        elem.content = {'word'}
+        assert.are_equal(elem, pandoc.Underline{'word'})
+      end)
+    },
   },
   group "Block elements" {
     group 'BlockQuote' {