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

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

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

#include "Thing.h"
#include "Console.h"
#include "World.h"
#include "Interpreter.h"

using namespace std;
using namespace phlogo;

BOOST_AUTO_TEST_CASE( suite )
{
        StringConsole c;
        World w(&c);
        Interpreter itp(&w);
    itp.run(&w, "testsuite \"array");
    BOOST_CHECK(!c.isError());
    if (c.isError()) {
        cout << c.getString() << endl;
    }
    BOOST_CHECK_EQUAL(w.getResult()->getWord(), "passed [8]");
}

/*
BOOST_AUTO_TEST_CASE( mdsetitem )
{
        ConsoleTester c;
        
        c.run("make \"X {{1 2} {3 4} {5 6}}");
        c.run("mdsetitem [2 3] :X 5");
        c.run("print :X");
        c.test("{{1 2} {3 5} {5 6}}");
}

BOOST_AUTO_TEST_CASE( setfirst )
{
        ConsoleTester c;
        
        c.run("make \"X [1 2 3]");
        c.run(".setfirst :X 2");
        c.run("print :X");
        c.test("2 2 3");
}

BOOST_AUTO_TEST_CASE( setbf )
{
        ConsoleTester c;
        
        c.run("make \"X [1 2 3]");
        c.run(".setbf :X [2 3 4]");
        c.run("print :X");
        c.test("1 2 3 4");
}
*/