#include "NewPlacement.hpp"

#include "Testing.hpp"

#include "core/object.h"

#include "primitives/dictobject.h"
#include "primitives/intobject.h"

using namespace tp;
using namespace obj;

TEST_DEF_STATIC(Dict) {
	auto integer = NDO_CAST(IntObject, NDO->create("int"));
	integer->val = 10;

	auto dict = NDO_CAST(DictObject, NDO->create("dict"));

	dict->put("val", integer);

	NDO->save(dict, "dict.o");

	auto dictLoaded = NDO_CAST(DictObject, NDO->load("dict.o"));

	TEST(dictLoaded->presents("val").isValid());
	TEST(NDO_CAST(IntObject, dictLoaded->get("val"))->val == 10);

	NDO->destroy(dict);
	NDO->destroy(dictLoaded);
}

TEST_DEF(Primitives) { testDict(); }