diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2016-08-29 14:10:56 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2016-08-29 14:10:56 +0200 |
| commit | 153970bef5068f5a82943cc7a2bec79f04d31ae9 (patch) | |
| tree | d1d9bb674d844f4d59013b32712552352c5fea27 /tests | |
| parent | bed5f700ceb91365018a4de6afea8a7c331688ae (diff) | |
| download | pandoc-153970bef5068f5a82943cc7a2bec79f04d31ae9.tar.gz | |
Org reader: read markup only for special meta keys
Most meta-keys should be read as normal string values, only a few are
interpreted as marked-up text.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index 0a3f9c222..61c222919 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -478,8 +478,8 @@ tests = , "Description" =: "#+DESCRIPTION: Explanatory text" =?> - let description = toList . spcSep $ [ "Explanatory", "text" ] - meta = setMeta "description" (MetaInlines description) $ nullMeta + let description = "Explanatory text" + meta = setMeta "description" (MetaString description) $ nullMeta in Pandoc meta mempty , "Properties drawer" =: |