git.iko.soy/typeable/yaml
on master help sign in
count scalars test
5b5ad3fMichael Snoyman
runtests.hs+23−2
compare with master
unifiedsplit
@@ -1,8 +1,29 @@
1import Test.Framework (defaultMain)
1import Test.Framework (defaultMain)
2
2
3−import qualified Data.Object.Yaml
3+import Text.Libyaml
4+import qualified Data.ByteString.Char8 as B8
5+
6+--import Test.Framework (testGroup, Test)
7+import Test.Framework.Providers.HUnit
8+--import Test.Framework.Providers.QuickCheck (testProperty)
9+import Test.HUnit hiding (Test, path)
10+--import Test.QuickCheck
4
11
5main :: IO ()
12main :: IO ()
6main = defaultMain
13main = defaultMain
7− [ Data.Object.Yaml.testSuite
14+ [ testCase "count scalars" caseCountScalars
8 ]
15 ]
16+
17+caseCountScalars :: Assertion
18+caseCountScalars = do
19+ Right res <- decode yamlBS fold accum
20+ res @?= (7, 1, 2)
21+ where
22+ yamlString = "foo:\n baz: [bin1, bin2, bin3]\nbaz: bazval"
23+ yamlBS = B8.pack yamlString
24+ fold (s, l, m) (EventScalar {}) = Right (s + 1, l, m)
25+ fold (s, l, m) EventSequenceStart = Right (s, l + 1, m)
26+ fold (s, l, m) EventMappingStart = Right (s, l, m + 1)
27+ fold res EventNone = Left res
28+ fold res _ = Right res
29+ accum = (0, 0, 0) :: (Int, Int, Int)
yaml.cabal+4−1
@@ -51,7 +51,10 @@ executable runtests
51 test-framework-quickcheck,
51 test-framework-quickcheck,
52 test-framework-hunit,
52 test-framework-hunit,
53 HUnit,
53 HUnit,
54− QuickCheck >= 1 && < 2
54+ QuickCheck >= 1 && < 2,
55+ base >= 4 && < 5,
56+ bytestring >= 0.9.1.4 && < 0.10,
57+ failure >= 0.0.0 && < 0.1
55 else
58 else
56 Buildable: False
59 Buildable: False
57 ghc-options: -Wall
60 ghc-options: -Wall