//
// test_net_builder.cpp
//

#define BOOST_TEST_MODULE "toolkit"
#include <boost/test/included/unit_test.hpp>

#include <string>
#include "epanet2.h"

// NOTE: Project Home needs to be updated to run unit test
#define DATA_PATH_INP "./net1.inp"
#define DATA_PATH_RPT "./test.rpt"
#define DATA_PATH_OUT "./test.out"

using namespace std;

BOOST_AUTO_TEST_SUITE (test_toolkit)

BOOST_AUTO_TEST_CASE(test_net_builder)
{
    int error = 0;
    int flag = 00;
    long t, tstep;
    int i, ind, Lindex, Nindex, Cindex;
    float h_orig, h_build, h_build_loaded;
    
    // first we load Net1.inp, run it and record the head in Tank 2 at the end of the simulation (h_orig)
    EN_ProjectHandle ph = NULL;
    EN_createproject(&ph);
    
    std::string path_inp = std::string(DATA_PATH_INP);
    std::string path_rpt = std::string(DATA_PATH_RPT);
    std::string path_out = std::string(DATA_PATH_OUT);

    error = EN_open(ph, path_inp.c_str(), path_rpt.c_str(), path_out.c_str());
    BOOST_REQUIRE(error == 0);

    error = EN_getnodeindex(ph, "2", &Nindex);
    BOOST_REQUIRE(error == 0);

    error = EN_openH(ph);
    BOOST_REQUIRE(error == 0);

    error = EN_initH(ph, flag);
    BOOST_REQUIRE(error == 0);

    do {
        error = EN_runH(ph, &t);
        BOOST_REQUIRE(error == 0);
        
        // this is the head at the end of the simulation after loading the original Net1.inp
        error = EN_getnodevalue(ph, Nindex, EN_HEAD, &h_orig);
        BOOST_REQUIRE(error == 0);
        
        error = EN_nextH(ph, &tstep);
        BOOST_REQUIRE(error == 0);

    } while (tstep > 0);    

    error = EN_closeH(ph);
    BOOST_REQUIRE(error == 0);
  
    error = EN_close(ph);
    BOOST_REQUIRE(error == 0);

    EN_deleteproject(&ph);

    // ------------------------------------------------------------------------
    // now we build Net1 from scratch...
    char juncs[9][10] = { "10", "11", "12", "13", "21", "22", "23", "31", "32" };
    float e[9] = {710, 710, 700, 695, 700, 695, 690, 700, 710};
    float d[9] = {0, 150, 150, 100, 150, 200, 150, 100, 100 };
    float X[9] = {20, 30, 50, 70, 30, 50, 70, 30, 50};
    float Y[9] = {70, 70, 70, 70, 40, 40, 40, 10, 10 };
    float L[12] = {10530, 5280, 5280, 5280, 5280, 5280, 200, 5280, 5280, 5280, 5280, 5280};
    float dia[12] = { 18, 14, 10, 10, 12, 6, 18, 10, 12, 8, 8, 6 };
    float P[12] = { 1, 1.2, 1.4, 1.6, 1.4, 1.2, 1, 0.8, 0.6, 0.4, 0.6, 0.8 };

    error = EN_createproject(&ph);
    error = EN_init(ph, "net.rpt", "net.out", EN_GPM, EN_HW);
    for (i = 0; i < 9; i++)
    {
      error = EN_addnode(ph, juncs[i], EN_JUNCTION);
      BOOST_REQUIRE(error == 0);
      error = EN_setnodevalue(ph, i + 1,EN_ELEVATION, e[i]);
      BOOST_REQUIRE(error == 0);
      error = EN_setnodevalue(ph, i + 1, EN_BASEDEMAND, d[i]);
      BOOST_REQUIRE(error == 0);
      error = EN_setcoord(ph, i + 1, X[i], Y[i]);
      BOOST_REQUIRE(error == 0);
    }
    error = EN_addnode(ph, "9", EN_RESERVOIR);
    BOOST_REQUIRE(error == 0);
    error = EN_setcoord(ph, 10, 10, 70);
    BOOST_REQUIRE(error == 0);
    error = EN_setnodevalue(ph, 10, EN_ELEVATION, 800);
    BOOST_REQUIRE(error == 0);

    error = EN_addnode(ph, "2", EN_TANK);
    BOOST_REQUIRE(error == 0);
    error = EN_setcoord(ph, 11, 50, 90);
    BOOST_REQUIRE(error == 0);
    error = EN_setnodevalue(ph, 11, EN_TANKDIAM, 50.5);
    BOOST_REQUIRE(error == 0);
    error = EN_setnodevalue(ph, 11, EN_ELEVATION, 850);
    BOOST_REQUIRE(error == 0);
    error = EN_setnodevalue(ph, 11, EN_MAXLEVEL, 150);
    BOOST_REQUIRE(error == 0);
    error = EN_setnodevalue(ph, 11, EN_TANKLEVEL, 120);
    BOOST_REQUIRE(error == 0);
    error = EN_setnodevalue(ph, 11, EN_MINLEVEL, 100);
    BOOST_REQUIRE(error == 0);
    error = EN_setnodevalue(ph, 11, EN_MIXFRACTION, 1);
    BOOST_REQUIRE(error == 0);

    error = EN_addlink(ph, "10", EN_PIPE, "10", "11");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "11", EN_PIPE, "11", "12");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "12", EN_PIPE, "12", "13");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "21", EN_PIPE, "21", "22");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "22", EN_PIPE, "22", "23");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "31", EN_PIPE, "31", "32");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "110", EN_PIPE, "2", "12");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "111", EN_PIPE, "11", "21");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "112", EN_PIPE, "12", "22");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "113", EN_PIPE, "13", "23");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "121", EN_PIPE, "21", "31");
    BOOST_REQUIRE(error == 0);
    error = EN_addlink(ph, "122", EN_PIPE, "22", "32");
    BOOST_REQUIRE(error == 0);
    for (i = 0; i < 12; i++)
    {
      error = EN_setlinkvalue(ph, i + 1, EN_LENGTH, L[i]);
      BOOST_REQUIRE(error == 0);
      error = EN_setlinkvalue(ph, i + 1, EN_DIAMETER, dia[i]);
      BOOST_REQUIRE(error == 0);
    }

    error = EN_addlink(ph, "9", EN_PUMP, "9", "10");
    BOOST_REQUIRE(error == 0);
    error = EN_addcurve(ph, "1");
    BOOST_REQUIRE(error == 0);
    error = EN_setcurvevalue(ph, 1, 1, 1500, 250);
    BOOST_REQUIRE(error == 0);
    error = EN_getlinkindex(ph, "9", &ind);
    BOOST_REQUIRE(error == 0);
    error = EN_setheadcurveindex(ph, ind, 1);
    BOOST_REQUIRE(error == 0);

    error = EN_addpattern(ph, "1");
    BOOST_REQUIRE(error == 0);
    error = EN_setpattern(ph, 1, P, 12);
    BOOST_REQUIRE(error == 0);
    error = EN_settimeparam(ph, EN_DURATION, 24*3600);
    BOOST_REQUIRE(error == 0);
    error = EN_settimeparam(ph, EN_PATTERNSTEP, 2*3600);
    BOOST_REQUIRE(error == 0);

    error = EN_getlinkindex(ph, "9", &Lindex);
    BOOST_REQUIRE(error == 0);
    error = EN_getnodeindex(ph, "2", &Nindex);
    BOOST_REQUIRE(error == 0);

    // Add controls
    error = EN_addcontrol(ph, &Cindex, EN_LOWLEVEL, Lindex, 1, Nindex, 110);
    BOOST_REQUIRE(error == 0);
    error = EN_addcontrol(ph, &Cindex, EN_HILEVEL, Lindex, 0, Nindex, 140);
    BOOST_REQUIRE(error == 0);

    error = EN_saveinpfile(ph, "net_builder.inp");
    BOOST_REQUIRE(error == 0);

    error = EN_openH(ph);
    BOOST_REQUIRE(error == 0);
    error = EN_initH(ph, 0);
    BOOST_REQUIRE(error == 0);
    do {
      error = EN_runH(ph, &t);
      BOOST_REQUIRE(error == 0);
      // this is the head at the end of the simulation after building the network *without* saving it to file
      error = EN_getnodevalue(ph, Nindex, EN_HEAD, &h_build); 
      BOOST_REQUIRE(error == 0);
      error = EN_nextH(ph, &tstep);
      BOOST_REQUIRE(error == 0);
    } while (tstep > 0);
    error = EN_closeH(ph);
    BOOST_REQUIRE(error == 0);
    error = EN_close(ph);
    BOOST_REQUIRE(error == 0);
    error = EN_deleteproject(&ph);
    BOOST_REQUIRE(error == 0);

    // ------------------------------------------------------------------------
    // now we load the netwok we just built and saved
    EN_createproject(&ph);
    error = EN_open(ph, "net_builder.inp", path_rpt.c_str(), path_out.c_str());
    BOOST_REQUIRE(error == 0);

    error = EN_openH(ph);
    BOOST_REQUIRE(error == 0);

    error = EN_initH(ph, flag);
    BOOST_REQUIRE(error == 0);

    do {
        error = EN_runH(ph, &t);
        BOOST_REQUIRE(error == 0);
        // this is the head at the end of the simulation after building the network and saving it to file
        error = EN_getnodevalue(ph, Nindex, EN_HEAD, &h_build_loaded);
        BOOST_REQUIRE(error == 0);
        error = EN_nextH(ph, &tstep);
        BOOST_REQUIRE(error == 0);

    } while (tstep > 0);
    
    error = EN_closeH(ph);
    BOOST_REQUIRE(error == 0);
    
    error = EN_close(ph);
    BOOST_REQUIRE(error == 0);

    EN_deleteproject(&ph); 
    //---------------------------------------------------------------------
    // if we got this far we can compare results
    
    // compare the original to the build & saved network
    BOOST_REQUIRE(h_orig == h_build_loaded);

    // compare the original to the build without saving
    BOOST_REQUIRE(h_orig == h_build); // this seems to fail :(

}

BOOST_AUTO_TEST_SUITE_END()