/Users/paul/Documents/phlogo/core/thingtest.cpp

#define BOOST_TEST_MAIN
#include <boost/test/unit_test.hpp>

#include <iostream>
#include <string>
#include <sstream>
#include <algorithm>
#include <iterator>

#include "Interpreter.h"
#include "Console.h"
#include "World.h"
#include "Thing.h"
#include "List.h"
#include "Array.h"
#include "StringTokenStream.h"

using namespace std;
using namespace phlogo;

void test_word_thing(const string &s, const string &val) {
        StringConsole c;
        World w(&c);
        Interpreter itp(&w);
        w.setThing("X", "foo");
        w.setThing("Y", "bar");
        StringTokenStream ts(s);
        pThing thing;
        itp.getNextThing(&w, &ts, &thing);
        BOOST_CHECK(thing->isWord());
        BOOST_CHECK_EQUAL(thing->getWord(), val);
}

List test_list_thing(const string &s, pThing *thing) {
        StringConsole c;
        World w(&c);
        Interpreter itp(&w);
        w.setThing("X", "foo");
        w.setThing("Y", "bar");
        StringTokenStream ts(s);
        itp.getNextThing(&w, &ts, thing);
        BOOST_CHECK((*thing)->isList());
        return (*thing)->getList();
}

Array test_array_thing(const string &s, pThing *thing) {
        StringConsole c;
        World w(&c);
        Interpreter itp(&w);
        w.setThing("X", "foo");
        w.setThing("Y", "bar");
        StringTokenStream ts(s);
        itp.getNextThing(&w, &ts, thing);
        BOOST_CHECK((*thing)->isArray());
        return (*thing)->getArray();
}

BOOST_AUTO_TEST_CASE( literalword )
{
        test_word_thing("X", "X");
}

BOOST_AUTO_TEST_CASE( literalword2 )
{
        StringConsole c;
        World w(&c);
        Interpreter itp(&w);
        string words = "X Y";
        StringTokenStream ts(words);
        pThing thing;
        itp.getNextThing(&w, &ts, &thing);
        BOOST_CHECK(thing->isWord());
        BOOST_CHECK_EQUAL(thing->getWord(), "X");
        BOOST_CHECK(!ts.atEnd());
        itp.getNextThing(&w, &ts, &thing);
        BOOST_CHECK(thing->isWord());
        BOOST_CHECK_EQUAL(thing->getWord(), "Y");
        BOOST_CHECK(ts.atEnd());
}

BOOST_AUTO_TEST_CASE( varword )
{
        test_word_thing(":X", "foo");
}

BOOST_AUTO_TEST_CASE( varword2 )
{
        StringConsole c;
        World w(&c);
        Interpreter itp(&w);
        w.setThing("X", "foo");
        w.setThing("Y", "bar");
        string words = ":X :Y";
        StringTokenStream ts(words);
        pThing thing;
        itp.getNextThing(&w, &ts, &thing);
        BOOST_CHECK(thing->isWord());
        BOOST_CHECK_EQUAL(thing->getWord(), "foo");
        BOOST_CHECK(!ts.atEnd());
        itp.getNextThing(&w, &ts, &thing);
        BOOST_CHECK(thing->isWord());
        BOOST_CHECK_EQUAL(thing->getWord(), "bar");
        BOOST_CHECK(ts.atEnd());
}

BOOST_AUTO_TEST_CASE( lists )
{
        pThing thing;
        List list = test_list_thing("[1]", &thing);
        BOOST_CHECK_EQUAL((int)list.size(), 1);
        BOOST_CHECK(list.get(0)->isWord());
        BOOST_CHECK_EQUAL(list.get(0)->getWord(), "1");
        
        list = test_list_thing("[1,2]", &thing);
        BOOST_CHECK_EQUAL((int)list.size(), 2);
        BOOST_CHECK(list.get(0)->isWord());
        BOOST_CHECK_EQUAL(list.get(0)->getWord(), "1");
        BOOST_CHECK(list.get(1)->isWord());
        BOOST_CHECK_EQUAL(list.get(1)->getWord(), "2");
        
        list = test_list_thing("[1,2,3]", &thing);
        BOOST_CHECK_EQUAL((int)list.size(), 3);
        BOOST_CHECK(list.get(0)->isWord());
        BOOST_CHECK_EQUAL(list.get(0)->getWord(), "1");
        BOOST_CHECK(list.get(2)->isWord());
        BOOST_CHECK_EQUAL(list.get(2)->getWord(), "3");
}

BOOST_AUTO_TEST_CASE( lists2 )
{
        StringConsole c;
        World w(&c);
        Interpreter itp(&w);
        w.setThing("X", "foo");
        w.setThing("Y", "bar");
        string words = "[1] [2,3]";
        StringTokenStream ts(words);
        pThing thing;
        itp.getNextThing(&w, &ts, &thing);
        BOOST_CHECK(thing->isList());
        BOOST_CHECK(!ts.atEnd());
        BOOST_CHECK_EQUAL((int)thing->getList().size(), 1);
        BOOST_CHECK(thing->getList().get(0)->isWord());
        BOOST_CHECK_EQUAL(thing->getList().get(0)->getWord(), "1");
        itp.getNextThing(&w, &ts, &thing);
        BOOST_CHECK(thing->isList());
        BOOST_CHECK(ts.atEnd());
        BOOST_CHECK_EQUAL((int)thing->getList().size(), 2);
        BOOST_CHECK(thing->getList().get(0)->isWord());
        BOOST_CHECK_EQUAL(thing->getList().get(0)->getWord(), "2");
        BOOST_CHECK(thing->getList().get(1)->isWord());
        BOOST_CHECK_EQUAL(thing->getList().get(1)->getWord(), "3");
}

BOOST_AUTO_TEST_CASE( listsoflists )
{
        pThing thing;
        List list = test_list_thing("[[1]]", &thing);
        BOOST_CHECK_EQUAL((int)list.size(), 1);
        BOOST_CHECK(list.get(0)->isList());
        BOOST_CHECK_EQUAL((int)list.get(0)->getList().size(), 1);
        BOOST_CHECK_EQUAL(list.get(0)->getList().get(0)->getWord(), "1");
        
        list = test_list_thing("[[1],[2,3]]", &thing);
        BOOST_CHECK_EQUAL((int)list.size(), 2);
        BOOST_CHECK(list.get(0)->isList());
        BOOST_CHECK_EQUAL((int)list.get(0)->getList().size(), 1);
        BOOST_CHECK_EQUAL(list.get(0)->getList().get(0)->getWord(), "1");
        BOOST_CHECK(list.get(1)->isList());
        BOOST_CHECK_EQUAL((int)list.get(1)->getList().size(), 2);
        BOOST_CHECK_EQUAL(list.get(1)->getList().get(0)->getWord(), "2");
        BOOST_CHECK_EQUAL(list.get(1)->getList().get(1)->getWord(), "3");
}

BOOST_AUTO_TEST_CASE( arrays )
{
        pThing thing;
        Array array = test_array_thing("{1}", &thing);
        BOOST_CHECK_EQUAL((int)array.size(), 1);
        BOOST_CHECK(array.get(0)->isWord());
        BOOST_CHECK_EQUAL(array.get(0)->getWord(), "1");

        array = test_array_thing("{1,2}", &thing);
        BOOST_CHECK_EQUAL((int)array.size(), 2);
        BOOST_CHECK(array.get(0)->isWord());
        BOOST_CHECK_EQUAL(array.get(0)->getWord(), "1");
        BOOST_CHECK(array.get(1)->isWord());
        BOOST_CHECK_EQUAL(array.get(1)->getWord(), "2");
        
        array = test_array_thing("{1,2,3}", &thing);
        BOOST_CHECK_EQUAL((int)array.size(), 3);
        BOOST_CHECK(array.get(0)->isWord());
        BOOST_CHECK_EQUAL(array.get(0)->getWord(), "1");
        BOOST_CHECK(array.get(2)->isWord());
        BOOST_CHECK_EQUAL(array.get(2)->getWord(), "3");
}

BOOST_AUTO_TEST_CASE( arrayofarrays )
{
        pThing thing;
        Array array = test_array_thing("{{1}}", &thing);
        BOOST_CHECK_EQUAL((int)array.size(), 1);
        BOOST_CHECK(array.get(0)->isArray());
        BOOST_CHECK_EQUAL((int)array.get(0)->getArray().size(), 1);
        BOOST_CHECK_EQUAL(array.get(0)->getArray().get(0)->getWord(), "1");
        
        array = test_array_thing("{{1},{2,3}}", &thing);
        BOOST_CHECK_EQUAL((int)array.size(), 2);
        BOOST_CHECK(array.get(0)->isArray());
        BOOST_CHECK_EQUAL((int)array.get(0)->getArray().size(), 1);
        BOOST_CHECK_EQUAL(array.get(0)->getArray().get(0)->getWord(), "1");
        BOOST_CHECK(array.get(1)->isArray());
        BOOST_CHECK_EQUAL((int)array.get(1)->getArray().size(), 2);
        BOOST_CHECK_EQUAL(array.get(1)->getArray().get(0)->getWord(), "2");
        BOOST_CHECK_EQUAL(array.get(1)->getArray().get(1)->getWord(), "3");
}

BOOST_AUTO_TEST_CASE( verbthing )
{
        test_word_thing("$1.1 $3.1 word", "w");
}

BOOST_AUTO_TEST_CASE( subseqthing )
{
        test_word_thing("$1.1 ( $3.1 word )", "w");
}