Permalink
Browse files

Wrote longer in-order test

  • Loading branch information...
1 parent 0ce2437 commit d463d04e95793dffd5cce0dccc95ca2c1324f5d7 @snoyberg committed Nov 23, 2010
Showing with 8 additions and 0 deletions.
  1. +8 −0 runtests.hs
View
@@ -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

0 comments on commit d463d04

Please sign in to comment.