module Main where

import qualified Data.ByteString.Char8 as ByteString
import MiniJson.Greeting (greetFromJson)
import System.Exit (die)

main :: IO ()
main =
  case
    ( greetFromJson (ByteString.pack "{\"name\":\"flakes\"}")
    , greetFromJson (ByteString.pack "{\"missing\":\"name\"}")
    ) of
    (Right "hello, flakes, from aeson", Left _) -> putStrLn "test passed"
    _ -> die "unexpected parser result"