Fix test-suite on aeson-0.10, error messages vary between aeson versi…

…ons silkapp/generic-aeson#10
silkapp · Dec 18, 2015 · 4476a02 · 4476a02
1 parent 7bf0f33
commit 4476a02
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/tests/Main.hs b/tests/Main.hs
@@ -1,6 +1,7 @@
 {-# OPTIONS -fno-warn-missing-signatures #-}
 {-# LANGUAGE
-    DeriveGeneric
+    CPP
+  , DeriveGeneric
   , OverloadedStrings
   , ScopedTypeVariables
   , TemplateHaskell
@@ -267,8 +268,13 @@ case_constructorWithMaybeField = do
   bidir "[null,2]" b
   valid b
 
+#if MIN_VERSION_aeson(0,10,0)
+  eq (Left "Error in $: expected Int, encountered Boolean" :: Either String X)
+     (eitherDecode "[true,2]")
+#else
   eq (Left "when expecting a Int, encountered Boolean instead" :: Either String X)
      (eitherDecode "[true,2]")
+#endif
 
   eq (Tuple [nullable number, number])
      (schema (Proxy :: Proxy X))