module TestHelpers where import qualified Data.Aeson as AE import qualified Data.Aeson.Encode.Pretty as AE import qualified Data.ByteString.Lazy.Char8 as BS import Data.Maybe (fromJust) import Data.Text (Text, pack) import GHC.Generics (Generic) import Network.JSONApi import Network.URL (URL, importURL) prettyEncode :: AE.ToJSON a => a -> BS.ByteString prettyEncode = AE.encodePretty' prettyConfig prettyConfig :: AE.Config prettyConfig = AE.Config { AE.confIndent = 2, AE.confCompare = mempty } class HasIdentifiers a where uniqueId :: a -> Int typeDescriptor :: a -> Text data TestResource = TestResource { myId :: Int , myName :: Text , myAge :: Int , myFavoriteFood :: Text } deriving (Show, Generic) instance AE.ToJSON TestResource instance AE.FromJSON TestResource instance ResourcefulEntity TestResource where resourceIdentifier = pack . show . myId resourceType _ = "testResource" resourceLinks _ = Nothing resourceMetaData _ = Nothing resourceRelationships _ = Nothing instance HasIdentifiers TestResource where uniqueId = myId typeDescriptor _ = "TestResource" data OtherTestResource = OtherTestResource { myFavoriteNumber :: Int , myJob :: Text , myPay :: Int , myEmployer :: Text } deriving (Show, Generic) instance AE.ToJSON OtherTestResource instance AE.FromJSON OtherTestResource instance ResourcefulEntity OtherTestResource where resourceIdentifier = pack . show . myFavoriteNumber resourceType _ = "otherTestResource" resourceLinks _ = Nothing resourceMetaData _ = Nothing resourceRelationships _ = Nothing instance HasIdentifiers OtherTestResource where uniqueId = myFavoriteNumber typeDescriptor _ = "OtherTestResource" data TestMetaObject = TestMetaObject { totalPages :: Int , isSuperFun :: Bool } deriving (Show, Generic) instance AE.ToJSON TestMetaObject instance AE.FromJSON TestMetaObject instance MetaObject TestMetaObject where typeName _ = "importantData" toResource' :: (HasIdentifiers a) => a -> Maybe Links -> Maybe Meta -> Resource a toResource' obj links meta = Resource (Identifier (pack . show . uniqueId $ obj) (typeDescriptor obj) meta) obj links Nothing linksObj :: Links linksObj = mkLinks [ ("self", toURL "/things/1") , ("related", toURL "http://some.domain.com/other/things/1") ] testObject :: TestResource testObject = TestResource 1 "Fred Armisen" 51 "Pizza" testObject2 :: TestResource testObject2 = TestResource 2 "Carrie Brownstein" 35 "Lunch" otherTestObject :: OtherTestResource otherTestObject = OtherTestResource 999 "Atom Smasher" 100 "Atom Smashers, Inc" testMetaObj :: Meta testMetaObj = mkMeta (TestMetaObject 3 True) emptyMeta :: Maybe Meta emptyMeta = Nothing toURL :: String -> URL toURL = fromJust . importURL emptyLinks :: Maybe Links emptyLinks = Nothing