/*
 * Copyright (c) 2009, 2010 Petri Lehtinen <petri@digip.org>
 * Copyright (c) 2010 Graeme Smecher <graeme.smecher@mail.mcgill.ca>
 *
 * Jansson is free software; you can redistribute it and/or modify
 * it under the terms of the MIT license. See LICENSE for details.
 */

#include <string.h>
#include <jansson.h>
#include <stdio.h>
#include "util.h"

int main()
{
    json_t *j, *j2;
    int i1, i2, i3;
    int rv;
    //void* v;
    double f;
    char *s;

    /*
     * Simple, valid json_pack cases
     */

    /* true */
    rv = json_unpack(json_true(), NULL, "b", &i1);
    if(rv || !i1)
        fail("json_unpack boolean failed");

    /* false */
    rv = json_unpack(json_false(), NULL, "b", &i1);
    if(rv || i1)
        fail("json_unpack boolean failed");

    /* null */
    rv = json_unpack(json_null(), NULL, "n");
    if(rv)
        fail("json_unpack null failed");

    /* integer */
    j = json_integer(1);
    rv = json_unpack(j, NULL, "i", &i1);
    if(rv || i1 != 1)
        fail("json_unpack integer failed");
    json_decref(j);

    /* real */
    j = json_real(1.0);
    rv = json_unpack(j, NULL, "f", &f);
    if(rv || f != 1.0)
        fail("json_unpack real failed");
    json_decref(j);

    /* string */
    j = json_string("foo");
    rv = json_unpack(j, NULL, "s", &s);
    if(rv || strcmp(s, "foo"))
        fail("json_unpack string failed");
    json_decref(j);

    /* empty object */
    j = json_object();
    rv = json_unpack(j, NULL, "{}");
    if(rv)
        fail("json_unpack empty object failed");
    json_decref(j);

    /* empty list */
    j = json_array();
    rv = json_unpack(j, NULL, "[]");
    if(rv)
        fail("json_unpack empty list failed");
    json_decref(j);

    /* non-incref'd object */
    j = json_object();
    rv = json_unpack(j, NULL, "o", &j2);
    if(j2 != j || j->refcount != (ssize_t)1)
        fail("json_unpack object failed");
    json_decref(j);

    /* incref'd object */
    j = json_object();
    rv = json_unpack(j, NULL, "O", &j2);
    if(j2 != j || j->refcount != (ssize_t)2)
        fail("json_unpack object failed");
    json_decref(j);
    json_decref(j);

    /* simple object */
    j = json_pack(NULL, "{s:i}", "foo", 1);
    rv = json_unpack(j, NULL, "{s:i}", "foo", &i1);
    if(rv || i1!=1)
        fail("json_unpack simple object failed");
    json_decref(j);

    /* simple array */
    j = json_pack(NULL, "[iii]", 1, 2, 3);
    rv = json_unpack(j, NULL, "[i,i,i]", &i1, &i2, &i3);
    if(rv || i1 != 1 || i2 != 2 || i3 != 3)
        fail("json_unpack simple array failed");
    json_decref(j);

    return 0;
}

/* vim: ts=4:expandtab:sw=4
 */