Lua: allow to compare, show Citation values

Comparisons of Citation values are performed in Haskell; values are
equal if they represent the same Haskell value. Converting a Citation
value to a string now yields its native Haskell string representation.

1 files changed, 16 insertions, 0 deletions

diff --git a/test/lua/module/pandoc.lua b/test/lua/module/pandoc.lua
index a0b888c74..4792e0949 100644
--- a/test/lua/module/pandoc.lua
+++ b/test/lua/module/pandoc.lua
@@ -481,6 +481,22 @@ return {
     end)
   },
   group 'Other types' {
+    group 'Citation' {
+      test('checks equality by comparing Haskell values', function()
+        assert.are_equal(
+          pandoc.Citation('a', pandoc.NormalCitation),
+          pandoc.Citation('a', pandoc.NormalCitation)
+        )
+        assert.is_falsy(
+          pandoc.Citation('a', pandoc.NormalCitation) ==
+          pandoc.Citation('a', pandoc.AuthorInText)
+        )
+        assert.is_falsy(
+          pandoc.Citation('a', pandoc.NormalCitation) ==
+          pandoc.Citation('b', pandoc.NormalCitation)
+        )
+      end),
+    },
     group 'SimpleTable' {
       test('can access properties', function ()
         local spc = pandoc.Space()