diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-02 00:32:49 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-02 00:33:16 +0300 |
| commit | 55c4b9982c785e043b0ed9b8dd2219bdbdf61087 (patch) | |
| tree | a1a6ebcf2e760bb494740dc545dac2e29877b0e1 /test/Tests | |
| parent | 7d3e7a5a6d9e7b139fd15e10a52b85f87aba42b1 (diff) | |
Muse reader: convert alphabetical list markers to decimal in round-trip test
Alphabetical lists are an addition of Text::Amuse.
They are not present in Emacs Muse and can be ambiguous
when list starts with "i.", "c." etc.
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index c45e0bfcf..1a8378b06 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -31,6 +31,8 @@ spcSep = mconcat . intersperse space -- makeRoundTrip :: Block -> Block makeRoundTrip Table{} = Para [Str "table was here"] +makeRoundTrip (OrderedList (start, LowerAlpha, _) items) = OrderedList (start, Decimal, Period) items +makeRoundTrip (OrderedList (start, UpperAlpha, _) items) = OrderedList (start, Decimal, Period) items makeRoundTrip x = x -- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way. |