/////////////////////////////////////////////////////////////////////////////////
//
//  Copyright (C) 2017 -     Statoil ASA
//
//  ResInsight is free software: you can redistribute it and/or modify
//  it under the terms of the GNU General Public License as published by
//  the Free Software Foundation, either version 3 of the License, or
//  (at your option) any later version.
//
//  ResInsight is distributed in the hope that it will be useful, but WITHOUT ANY
//  WARRANTY; without even the implied warranty of MERCHANTABILITY or
//  FITNESS FOR A PARTICULAR PURPOSE.
//
//  See the GNU General Public License at <http://www.gnu.org/licenses/gpl.html>
//  for more details.
//
/////////////////////////////////////////////////////////////////////////////////

#include "gtest/gtest.h"

#include "Completions/RigTransmissibilityCondenser.h"

//--------------------------------------------------------------------------------------------------
///
//--------------------------------------------------------------------------------------------------
TEST( RigTransmissibilityCondenser, BasicTest )
{
    using RiCa = RigTransmissibilityCondenser::CellAddress;
#if 1
    {
        RigTransmissibilityCondenser condenser;

        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 1}, {true, RiCa::STIMPLAN, 1}, 1.0 );

        double condT = condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1}, {true, RiCa::STIMPLAN, 1} );

        EXPECT_DOUBLE_EQ( 1.0, condT );
    }

    {
        RigTransmissibilityCondenser condenser;

        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 1}, {true, RiCa::STIMPLAN, 1}, 0.5 );

        double condT = condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1}, {true, RiCa::STIMPLAN, 1} );

        EXPECT_DOUBLE_EQ( 0.5, condT );
    }

    {
        RigTransmissibilityCondenser condenser;

        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 1}, {false, RiCa::STIMPLAN, 1}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {true, RiCa::STIMPLAN, 2}, 0.5 );

        double condT = condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1}, {true, RiCa::STIMPLAN, 2} );

        EXPECT_DOUBLE_EQ( 0.25, condT );
    }

    {
        RigTransmissibilityCondenser condenser;

        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 1}, {false, RiCa::STIMPLAN, 1}, 0.5 );
        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 1}, {false, RiCa::STIMPLAN, 2}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {true, RiCa::STIMPLAN, 3}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 2}, {true, RiCa::STIMPLAN, 3}, 0.5 );

        double condT = condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1}, {true, RiCa::STIMPLAN, 3} );

        EXPECT_DOUBLE_EQ( 0.5, condT );
    }
    {
        RigTransmissibilityCondenser condenser;

        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 1}, {false, RiCa::STIMPLAN, 1}, 0.5 );
        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 1}, {false, RiCa::STIMPLAN, 2}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {false, RiCa::STIMPLAN, 3}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 2}, {false, RiCa::STIMPLAN, 3}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 3}, {true, RiCa::STIMPLAN, 4}, 0.5 );
        double condT = condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1}, {true, RiCa::STIMPLAN, 4} );

        EXPECT_DOUBLE_EQ( 0.25, condT );
    }
#endif

    {
        RigTransmissibilityCondenser condenser;

        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 5}, {false, RiCa::STIMPLAN, 1}, 0.5 );

        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {false, RiCa::STIMPLAN, 2}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {false, RiCa::STIMPLAN, 3}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 2}, {false, RiCa::STIMPLAN, 4}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 3}, {false, RiCa::STIMPLAN, 4}, 0.5 );

        condenser.addNeighborTransmissibility( {true, RiCa::STIMPLAN, 6}, {false, RiCa::STIMPLAN, 4}, 0.5 );

        double condT = condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 5}, {true, RiCa::STIMPLAN, 6} );

        EXPECT_NEAR( 0.1666666667, condT, 1e-7 );
    }
#if 1
    {
        RigTransmissibilityCondenser condenser;

        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 5}, {false, RiCa::STIMPLAN, 1}, 0.5 );
        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 7}, {false, RiCa::STIMPLAN, 2}, 0.5 );
        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 8}, {false, RiCa::STIMPLAN, 3}, 0.5 );
        condenser.addNeighborTransmissibility( {true, RiCa::ECLIPSE, 9}, {false, RiCa::STIMPLAN, 4}, 0.5 );

        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {false, RiCa::STIMPLAN, 2}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {false, RiCa::STIMPLAN, 3}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 2}, {false, RiCa::STIMPLAN, 4}, 0.5 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 3}, {false, RiCa::STIMPLAN, 4}, 0.5 );

        condenser.addNeighborTransmissibility( {true, RiCa::STIMPLAN, 6}, {false, RiCa::STIMPLAN, 4}, 0.5 );

        double condT = condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 5}, {true, RiCa::STIMPLAN, 6} );

        EXPECT_NEAR( 0.045454545, condT, 1e-7 );
    }
#endif
#if 1
    {
        // Test example from Matlab scripts, that match the iterative solution

        RigTransmissibilityCondenser condenser;

        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {false, RiCa::STIMPLAN, 2}, 0.01127000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {false, RiCa::STIMPLAN, 4}, 1.12700000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 1}, {true, RiCa::ECLIPSE, 7}, 0.09016000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 2}, {false, RiCa::STIMPLAN, 3}, 0.01127000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 2}, {false, RiCa::STIMPLAN, 5}, 1.12700000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 2}, {true, RiCa::ECLIPSE, 8}, 0.09016000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 3}, {false, RiCa::STIMPLAN, 6}, 1.50266667 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 3}, {true, RiCa::ECLIPSE, 9}, 0.09016000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 4}, {false, RiCa::STIMPLAN, 5}, 0.01127000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 4}, {true, RiCa::ECLIPSE, 10}, 0.09016000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 5}, {false, RiCa::STIMPLAN, 6}, 0.01502667 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 5}, {true, RiCa::ECLIPSE, 11}, 0.09016000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 6}, {true, RiCa::ECLIPSE, 12}, 0.09016000 );
        condenser.addNeighborTransmissibility( {false, RiCa::STIMPLAN, 6}, {true, RiCa::STIMPLAN, 13}, 0.19219491 );

        EXPECT_NEAR( 0.00402732,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1 + 6}, {true, RiCa::ECLIPSE, 2 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00027347,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1 + 6}, {true, RiCa::ECLIPSE, 3 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.03879174,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1 + 6}, {true, RiCa::ECLIPSE, 4 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00400489,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1 + 6}, {true, RiCa::ECLIPSE, 5 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00026172,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1 + 6}, {true, RiCa::ECLIPSE, 6 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00055791,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 1 + 6}, {true, RiCa::STIMPLAN, 7 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00245697,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 2 + 6}, {true, RiCa::ECLIPSE, 3 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00401064,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 2 + 6}, {true, RiCa::ECLIPSE, 4 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.03442773,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 2 + 6}, {true, RiCa::ECLIPSE, 5 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00233846,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 2 + 6}, {true, RiCa::ECLIPSE, 6 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00498491,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 2 + 6}, {true, RiCa::STIMPLAN, 7 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00027351,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 3 + 6}, {true, RiCa::ECLIPSE, 4 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00246579,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 3 + 6}, {true, RiCa::ECLIPSE, 5 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.01956640,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 3 + 6}, {true, RiCa::ECLIPSE, 6 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.04170988,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 3 + 6}, {true, RiCa::STIMPLAN, 7 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00402105,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 4 + 6}, {true, RiCa::ECLIPSE, 5 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00026189,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 4 + 6}, {true, RiCa::ECLIPSE, 6 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00055827,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 4 + 6}, {true, RiCa::STIMPLAN, 7 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00237402,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 5 + 6}, {true, RiCa::ECLIPSE, 6 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.00506073,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 5 + 6}, {true, RiCa::STIMPLAN, 7 + 6} ),
                     1e-6 );
        EXPECT_NEAR( 0.04448791,
                     condenser.condensedTransmissibility( {true, RiCa::ECLIPSE, 6 + 6}, {true, RiCa::STIMPLAN, 7 + 6} ),
                     1e-6 );
    }
#endif
}