import Data.Aeson
import Data.Aeson.OneLine

import Data.Text (Text)
import qualified Data.Text as Text

import System.Exit

main :: IO ()
main =
    if renderValue val == txt
    then return ()
    else die "Failure"

val :: Value
val = object [ Text.pack "name" .= Text.pack "Alonzo"
             , Text.pack "age" .= (3 :: Integer) ]

txt :: Text
txt = Text.pack "{\"age\": 3, \"name\": \"Alonzo\"}"