git.iko.soy/typeable/yaml
on master help sign in
Fix a test
5869494Michael Snoyman
test/main.hs+1−6
compare with master
unifiedsplit
@@ -92,12 +92,7 @@ main = hspec $ do
92
92
93 describe "pretty output" $ do
93 describe "pretty output" $ do
94 it "simple nulls" $ D.encode (object ["foo" .= D.Null]) `shouldBe` "foo: null\n"
94 it "simple nulls" $ D.encode (object ["foo" .= D.Null]) `shouldBe` "foo: null\n"
95− it "simple numbers" $ D.encode (object ["foo" .= (4 :: Int)]) `shouldBe`
95+ it "simple numbers" $ D.encode (object ["foo" .= (4 :: Int)]) `shouldBe` "foo: 4\n"
96−#if MIN_VERSION_aeson(0, 7, 0)
97− "foo: 4.0\n" -- FIXME should this be reported as a bug upstream to aeson?
98−#else
99− "foo: 4\n"
100−#endif
101 it "True" $ D.encode (object ["foo" .= True]) `shouldBe` "foo: true\n"
96 it "True" $ D.encode (object ["foo" .= True]) `shouldBe` "foo: true\n"
102 it "False" $ D.encode (object ["foo" .= False]) `shouldBe` "foo: false\n"
97 it "False" $ D.encode (object ["foo" .= False]) `shouldBe` "foo: false\n"
103 it "simple string" $ D.encode (object ["foo" .= ("bar" :: T.Text)]) `shouldBe` "foo: bar\n"
98 it "simple string" $ D.encode (object ["foo" .= ("bar" :: T.Text)]) `shouldBe` "foo: bar\n"