aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2021-11-02 21:22:59 +0100
committerAlbert Krewinkel <albert@zeitkraut.de>2021-11-02 21:22:59 +0100
commit421fd736d4ee11815f1b8acc123c1d0f9e9136c7 (patch)
treec450cd1bb369d549eb919f74cac1af3292ce1db6
parentcce49c5d4b7429ca3455d356dff59f404f7e6d4b (diff)
downloadpandoc-421fd736d4ee11815f1b8acc123c1d0f9e9136c7.tar.gz
Lua: re-add `content` property to Strikeout elements
Fixes a regression introduced in 2.15.
-rw-r--r--src/Text/Pandoc/Lua/Marshaling/AST.hs2
-rw-r--r--test/lua/module/pandoc.lua96
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' {