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

/*
 *  UnitVerbs.cpp
 *
 *  Author: Paul Hamilton
 *      Date: 10 Aug 2011
 *
 */
#include "Verbs.h"
        
#include "Interpreter.h"
#include "Thing.h"
#include "Exceptions.h"
#include "World.h"
#include "Console.h"
#include "Turtle.h"
#include "FileProcessor.h"

#include <boost/lexical_cast.hpp>
#include <boost/algorithm/string.hpp>

using namespace std;
using namespace boost;
using namespace boost::filesystem;

namespace phlogo {

void Verbs::test(TokenStream *ts) {
    
        string code = getWord(ts);
    string expected = getWord(ts);
        
    _itp->run(_world, code);
    
    shared_ptr<Thing> result(new Thing());
    if (_world->getConsole()->getString() != expected) {
        result->set("failed [" + expected + " != " + _world->getConsole()->getString() + "]");
    }
    else
        result->set("passed");
    _world->setResult(result);
    
}

class LUnitProcessor : public LineProcessor {
    
public:
    LUnitProcessor(Interpreter *itp, World *world) :  
        _itp(itp), _world(world), _name(""), _passcount(0), _total(0) {}
    
    virtual void process(const std::string &line);
    
    int getPasscount() { return _passcount; }
    int getTotal() { return _total; }
    
private:
    Interpreter *_itp;
    World *_world;
    string _name;
    int _passcount;
    int _total;
};
    
void LUnitProcessor::process(const std::string &s) {
    
    string line = s;
    if (line[0] == '=') {
        // execute the test.
        size_t test_start = line.find_first_not_of("\t ", 1);
        if (test_start != string::npos) {
            string test = line.substr(test_start);
            replace_all(test, "\\n", "\n");
            if (_world->getConsole()->getString() != test)
                cout << _name << ": failed [" << test << " != " + _world->getConsole()->getString() << "]" << endl;
            else
                _passcount++;
            _total++;
            _world->getConsole()->reset();
        }
    }
    else if (line[0] == '>') {
        // execute the test.
        size_t test_start = line.find_first_not_of("\t ", 1);
        if (test_start != string::npos) {
            string test = line.substr(test_start);
            string gdata = static_cast<JSONTurtle *>(_world->getTurtle())->endGData();
            if (gdata != test)
                cout << _name << ": failed [" << test << " != " + gdata << "]" << endl;
            else
                _passcount++;
            _total++;
            _world->getTurtle()->clear();
        }
    }
    else {
        if (line[0] == '\t' || line[0] == ' ') {
            // statement
            // execute the statement.
            FileProcessor::parseLine(line, _itp, _world);
        }
        else {
            // suite name.
            trim(line);
            if (line.length() > 0) {
                _name = line;
            }
        }
    }
    
}
    
void Verbs::testsuite(TokenStream *ts) {
    
    path p = "test";
    path fn = getWord(ts) + ".lunit";

    LUnitProcessor processor(_itp, _world);
    FileProcessor::parseFile(FileProcessor::locateFile(p, fn), &processor);
    
    shared_ptr<Thing> result(new Thing());
    if (processor.getPasscount() == processor.getTotal())
        result->set("passed [" + lexical_cast<string>(processor.getTotal()) + "]");
    else
        result->set("failed [" + lexical_cast<string>(processor.getTotal() - processor.getPasscount()) + "]");
    _world->setResult(result);

}

}