Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Wrote longer in-order test

  • Loading branch information...
commit d463d04e95793dffd5cce0dccc95ca2c1324f5d7 1 parent 0ce2437
@snoyberg authored
Showing with 8 additions and 0 deletions.
  1. +8 −0 runtests.hs
View
8 runtests.hs
@@ -163,7 +163,15 @@ caseMergeSequence = do
inOrderData :: String
inOrderData = "'Fatal': 'Unknown variable \"bar\"'\n'Date': '2001-11-23 15:03:17 -5'\n'User': 'ed'\n'Stack':\n- 'line': '23'\n 'file': 'TopClass.py'\n 'code': 'x = MoreObject(\"345\\n\")\n\n'\n- 'line': '58'\n 'file': 'MoreClass.py'\n 'code': 'foo = bar'\n"
+
+inOrderData2 :: String
+inOrderData2 =
+ "'a': '1'\n'b': '2'\n'd': '4'\n'c': '3'\n"
+ ++ "'g': '1'\n'n': '2'\n'q': '4'\n'f': '3'\n"
+ ++ "'z': '1'\n'y': '2'\n'x': '4'\n'w': '3'\n"
+
caseInOrder :: Assertion
caseInOrder = do
Just (Mapping ((x, _):_)) <- return $ decodeYaml inOrderData
x @?= mkScalar "Fatal"
+ fmap (B8.unpack . encode) (decodeYaml inOrderData2) @?= Just inOrderData2
Please sign in to comment.
Something went wrong with that request. Please try again.