/* Copyright (C) 2015
 * swift project Community / Contributors
 *
 * This file is part of swift project. It is subject to the license terms in the LICENSE file found in the top-level
 * directory of this distribution. No part of swift project, including this file, may be copied, modified, propagated,
 * or distributed except according to the terms contained in the LICENSE file.
 */

//! \cond PRIVATE_TESTS
//! \file
//! \ingroup testblackmisc

#include "blackmisc/simulation/interpolator.h"
#include "blackmisc/simulation/interpolatorlinear.h"
#include "blackmisc/simulation/remoteaircraftproviderdummy.h"
#include "blackmisc/aviation/aircraftengine.h"
#include "blackmisc/aviation/aircraftenginelist.h"
#include "blackmisc/aviation/aircraftlights.h"
#include "blackmisc/aviation/aircraftpartslist.h"
#include "blackmisc/aviation/aircraftsituationlist.h"
#include "blackmisc/aviation/altitude.h"
#include "blackmisc/aviation/callsign.h"
#include "blackmisc/aviation/heading.h"
#include "blackmisc/geo/coordinategeodetic.h"
#include "blackmisc/geo/latitude.h"
#include "blackmisc/geo/longitude.h"
#include "blackmisc/pq/angle.h"
#include "blackmisc/pq/length.h"
#include "blackmisc/pq/physicalquantity.h"
#include "blackmisc/pq/speed.h"
#include "blackmisc/pq/units.h"
#include "blackmisc/mixin/mixincompare.h"
#include "test.h"

#include <QCoreApplication>
#include <QDebug>
#include <QEventLoop>
#include <QScopedPointer>
#include <QTest>
#include <QTime>
#include <QtDebug>

using namespace BlackMisc;
using namespace BlackMisc::Aviation;
using namespace BlackMisc::Geo;
using namespace BlackMisc::PhysicalQuantities;
using namespace BlackMisc::Simulation;

namespace BlackMiscTest
{
    //! Interpolator classes basic tests
    class CTestInterpolatorLinear : public QObject
    {
        Q_OBJECT

    private slots:
        //! Basic unit tests for interpolator
        void basicInterpolatorTests();

        //! Interpolator PBH
        void pbhInterpolatorTest();

    private:
        //! Test situation for testing
        static BlackMisc::Aviation::CAircraftSituation getTestSituation(const BlackMisc::Aviation::CCallsign &callsign, int number, qint64 ts, qint64 deltaT, qint64 offset);

        //! Test parts
        static BlackMisc::Aviation::CAircraftParts getTestParts(int number, qint64 ts, qint64 deltaT);
    };

    void CTestInterpolatorLinear::basicInterpolatorTests()
    {
        const CCallsign cs("SWIFT");
        CRemoteAircraftProviderDummy provider;
        CInterpolatorLinear interpolator(cs, nullptr, nullptr, &provider);
        interpolator.markAsUnitTest();

        // fixed time so everything can be debugged
        const qint64 ts = 1425000000000; // QDateTime::currentMSecsSinceEpoch();
        const qint64 deltaT = 5000; // ms
        const qint64 offset = 5000; // ms
        for (int i = IRemoteAircraftProvider::MaxSituationsPerCallsign - 1; i >= 0; i--)
        {
            const CAircraftSituation s(getTestSituation(cs, i, ts, deltaT, offset));

            // check height above ground
            CLength hag = (s.getAltitude() - s.getGroundElevation());
            QVERIFY2(s.getHeightAboveGround() == hag, "Wrong elevation");
            provider.insertNewSituation(s);
        }

        constexpr int partsCount = 10;
        for (int i = partsCount - 1; i >= 0; i--)
        {
            const CAircraftParts p(getTestParts(i, ts, deltaT));
            provider.insertNewAircraftParts(cs, p, false);
        }

        // make sure signals are processed, if the interpolator depends on those signals
        QCoreApplication::processEvents(QEventLoop::AllEvents, 1000);

        // interpolation functional check
        const CInterpolationAndRenderingSetupPerCallsign setup;
        double latOld = 360.0;
        double lngOld = 360.0;

        qint64 from = ts - 2 * deltaT + offset;
        qint64 to   = ts; // ts + offset is last value, but we have to consider offset
        qint64 step = deltaT / 20;
        for (qint64 currentTime = from; currentTime < to; currentTime += step)
        {
            // This will use time range
            // from:  ts - 2 * deltaT + offset
            // to:    ts              + offset

            const CInterpolationResult result = interpolator.getInterpolation(currentTime, setup);
            const CAircraftSituation currentSituation(result);
            QVERIFY2(result.getInterpolationStatus().isInterpolated(), "Value was not interpolated");
            const double latDeg = currentSituation.getPosition().latitude().valueRounded(CAngleUnit::deg(), 5);
            const double lngDeg = currentSituation.getPosition().longitude().valueRounded(CAngleUnit::deg(), 5);
            QVERIFY2(latDeg < latOld && lngDeg < lngOld, QStringLiteral("Values shall decrease: %1/%2 %3/%4").arg(latDeg).arg(latOld).arg(lngDeg).arg(lngOld).toLatin1());
            QVERIFY2(latDeg >= 0 && latDeg <= IRemoteAircraftProvider::MaxSituationsPerCallsign, "Values shall be in range");
            latOld = latDeg;
            lngOld = lngDeg;
        }

        QElapsedTimer timer;
        timer.start();
        int interpolationNo = 0;
        const qint64 startTimeMsSinceEpoch = ts - 2 * deltaT;

        // Pseudo performance test:
        // Those make not completely sense, as the performance depends on the implementation of
        // the dummy provider, which is different from the real provider
        // With one callsign in the lists (of dummy provider) it is somehow expected to be roughly the same performance

        interpolator.resetLastInterpolation();
        interpolator.markAsUnitTest();
        for (int loops = 0; loops < 20; loops++)
        {
            from = startTimeMsSinceEpoch + offset;
            to   = ts; // ts + offset is last value, but we have to consider offset
            step = deltaT / 20;

            for (qint64 currentTime = from; currentTime < to; currentTime += step)
            {
                // This will use range
                // from:  ts - 2* deltaT + offset
                // to:    ts             + offset
                const CInterpolationResult result = interpolator.getInterpolation(currentTime, setup);
                const CAircraftSituation currentSituation(result);
                QVERIFY2(result.getInterpolationStatus().isInterpolated(), "Not interpolated");
                QVERIFY2(!currentSituation.getCallsign().isEmpty(), "Empty callsign");
                QVERIFY2(currentSituation.getCallsign() == cs, "Wrong callsign");
                const double latDeg = currentSituation.getPosition().latitude().valueRounded(CAngleUnit::deg(), 5);
                const double lngDeg = currentSituation.getPosition().longitude().valueRounded(CAngleUnit::deg(), 5);
                Q_UNUSED(latDeg);
                Q_UNUSED(lngDeg);
                interpolationNo++;
            }
        }

        // check on time just to learn if interpolation suddenly gets very slow
        // this is a risky test as in some situations the values can be exceeded
        int timeMs = timer.elapsed();
        QVERIFY2(timeMs < interpolationNo * 1.5, "Interpolation > 1.5ms");
        qDebug() << timeMs << "ms" << "for" << interpolationNo << "interpolations";

        int fetchedParts = 0;
        timer.start();
        for (qint64 currentTime = ts - 2 * deltaT; currentTime < ts; currentTime += 250)
        {
            const CInterpolationResult result = interpolator.getInterpolation(currentTime, setup);
            fetchedParts++;
            QVERIFY2(result.getPartsStatus().isSupportingParts(), "Parts not supported");
        }
        timeMs = timer.elapsed();
        qDebug() << timeMs << "ms" << "for" << fetchedParts << "fetched parts";
    }

    void CTestInterpolatorLinear::pbhInterpolatorTest()
    {
        const CCallsign cs("SWIFT");
        CAircraftSituation s1 = getTestSituation(cs, 0, 0, 0, 0);
        CAircraftSituation s2 = getTestSituation(cs, 5000, 0, 0, 0);
        const CHeading heading1(0, CHeading::True, CAngleUnit::deg());
        const CHeading heading2(120, CHeading::True, CAngleUnit::deg());
        s1.setHeading(heading1);
        s2.setHeading(heading2);
        CInterpolatorPbh pbh(s1, s2);

        const int steps = 10;
        const double tfStep = 1.0 / steps;

        double lastDeg = 0;

        for (int i = 0; i < steps; i++)
        {
            double timeFraction = tfStep * i;
            pbh.setTimeFraction(timeFraction);
            const CHeading heading = pbh.getHeading();
            const double h = heading.value(CAngleUnit::deg());
            if (i < 1) { lastDeg = h; continue; }
            QVERIFY2(h > lastDeg, "Expect increasing heading");
            lastDeg = h;
        }

        // move from -90 -> 30 over 0
        const CHeading heading3(270, CHeading::True, CAngleUnit::deg());
        const CHeading heading4(30, CHeading::True, CAngleUnit::deg());
        s1.setHeading(heading3);
        s2.setHeading(heading4);
        pbh.setSituations(s1, s2);

        for (int i = 0; i < steps; i++)
        {
            double timeFraction = tfStep * i;
            pbh.setTimeFraction(timeFraction);
            const CHeading heading = pbh.getHeading();
            const double h = heading.value(CAngleUnit::deg());
            if (i < 1) { lastDeg = h; continue; }
            QVERIFY2(h > lastDeg, "Expect increasing heading");
            lastDeg = h;
        }

        // move from -90 -> 170 over 180
        const CHeading heading5(270, CHeading::True, CAngleUnit::deg());
        const CHeading heading6(170, CHeading::True, CAngleUnit::deg());
        s1.setHeading(heading5);
        s2.setHeading(heading6);
        pbh.setSituations(s1, s2);

        for (int i = 0; i < steps; i++)
        {
            double timeFraction = tfStep * i;
            pbh.setTimeFraction(timeFraction);
            const CHeading heading = pbh.getHeading();
            const double h = CAngle::normalizeDegrees360(heading.value(CAngleUnit::deg()));
            if (i < 1) { lastDeg = h; continue; }
            QVERIFY2(h < lastDeg, "Expect increasing heading");
            lastDeg = h;
        }

        // bank from 270 -> 30 over 0
        s1.setHeading(heading5);
        s2.setHeading(heading5);
        const CAngle bank1(270, CAngleUnit::deg());
        const CAngle bank2(30, CAngleUnit::deg());
        s1.setBank(bank1);
        s2.setBank(bank2);
        pbh.setSituations(s1, s2);

        for (int i = 0; i < steps; i++)
        {
            double timeFraction = tfStep * i;
            pbh.setTimeFraction(timeFraction);
            const CAngle bank = pbh.getBank();
            const double b = bank.value(CAngleUnit::deg());
            if (i < 1) { lastDeg = b; continue; }
            QVERIFY2(b > lastDeg, "Expect increasing bank");
            lastDeg = b;
        }

        // bank from 170 -> 190 (-170) over 180
        CAngle bank3(170, CAngleUnit::deg());
        CAngle bank4(190, CAngleUnit::deg());
        s1.setBank(bank3);
        s2.setBank(bank4);
        pbh.setSituations(s1, s2);

        for (int i = 0; i < steps; i++)
        {
            double timeFraction = tfStep * i;
            pbh.setTimeFraction(timeFraction);
            const CAngle bank = pbh.getBank();
            const double b = CAngle::normalizeDegrees360(bank.value(CAngleUnit::deg()));
            if (i < 1) { lastDeg = b; continue; }
            QVERIFY2(b > lastDeg, "Expect increasing bank");
            lastDeg = b;
        }

        // pitch from 30 -> -30 over 0
        s1.setHeading(heading5);
        s2.setHeading(heading5);
        const CAngle pitch1(30, CAngleUnit::deg());
        const CAngle pitch2(-30, CAngleUnit::deg());
        s1.setPitch(pitch1);
        s2.setPitch(pitch2);
        pbh.setSituations(s1, s2);

        for (int i = 0; i < steps; i++)
        {
            double timeFraction = tfStep * i;
            pbh.setTimeFraction(timeFraction);
            const CAngle pitch = pbh.getPitch();
            const double p = pitch.value(CAngleUnit::deg());
            if (i < 1) { lastDeg = p; continue; }
            QVERIFY2(p < lastDeg, "Expect decreasing pitch");
            lastDeg = p;
        }

        // pitch from -30 -> 30 over 0
        s1.setHeading(heading5);
        s2.setHeading(heading5);
        const CAngle pitch3(-30, CAngleUnit::deg());
        const CAngle pitch4(30, CAngleUnit::deg());
        s1.setPitch(pitch3);
        s2.setPitch(pitch4);
        pbh.setSituations(s1, s2);

        for (int i = 0; i < steps; i++)
        {
            double timeFraction = tfStep * i;
            pbh.setTimeFraction(timeFraction);
            const CAngle pitch = pbh.getPitch();
            const double p = pitch.value(CAngleUnit::deg());
            if (i < 1) { lastDeg = p; continue; }
            QVERIFY2(p > lastDeg, "Expect increasing pitch");
            lastDeg = p;
        }
    }

    CAircraftSituation CTestInterpolatorLinear::getTestSituation(const CCallsign &callsign, int number, qint64 ts, qint64 deltaT, qint64 offset)
    {
        const CAltitude alt(number, CAltitude::MeanSeaLevel, CLengthUnit::m());
        const CLatitude lat(number, CAngleUnit::deg());
        const CLongitude lng(180.0 + number, CAngleUnit::deg());
        const CHeading heading(number * 10, CHeading::True, CAngleUnit::deg());
        const CAngle bank(number, CAngleUnit::deg());
        const CAngle pitch(number, CAngleUnit::deg());
        const CSpeed gs(number * 10, CSpeedUnit::km_h());
        const CAltitude gndElev({ 0, CLengthUnit::m() }, CAltitude::MeanSeaLevel);
        const CCoordinateGeodetic c(lat, lng, alt);
        CAircraftSituation s(callsign, c, heading, pitch, bank, gs);
        s.setGroundElevation(gndElev, CAircraftSituation::Test);
        s.setMSecsSinceEpoch(ts - deltaT * number); // values in past
        s.setTimeOffsetMs(offset);
        return s;
    }

    CAircraftParts CTestInterpolatorLinear::getTestParts(int number, qint64 ts, qint64 deltaT)
    {
        CAircraftLights l(true, false, true, false, true, false);
        CAircraftEngineList e({ CAircraftEngine(1, true), CAircraftEngine(2, false), CAircraftEngine(3, true) });
        CAircraftParts p(l, true, 20, true, e, false);
        p.setMSecsSinceEpoch(ts - deltaT * number); // values in past
        return p;
    }
} // namespace

//! main
BLACKTEST_MAIN(BlackMiscTest::CTestInterpolatorLinear);

#include "testinterpolatorlinear.moc"

//! \endcond