From 55c4b9982c785e043b0ed9b8dd2219bdbdf61087 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Fri, 2 Mar 2018 00:32:49 +0300 Subject: 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. --- test/Tests/Readers/Muse.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'test/Tests') 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. -- cgit v1.2.3