/*
                 __________
    _____   __ __\______   \_____  _______  ______  ____ _______
   /     \ |  |  \|     ___/\__  \ \_  __ \/  ___/_/ __ \\_  __ \
  |  Y Y  \|  |  /|    |     / __ \_|  | \/\___ \ \  ___/ |  | \/
  |__|_|  /|____/ |____|    (____  /|__|  /____  > \___  >|__|
        \/                       \/            \/      \/
  Copyright (C) 2013 Ingo Berg

  Permission is hereby granted, free of charge, to any person obtaining a copy of this
  software and associated documentation files (the "Software"), to deal in the Software
  without restriction, including without limitation the rights to use, copy, modify,
  merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
  permit persons to whom the Software is furnished to do so, subject to the following conditions:

  The above copyright notice and this permission notice shall be included in all copies or
  substantial portions of the Software.

  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT
  NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
  DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*/

#ifndef MU_PARSER_TEST_H
#define MU_PARSER_TEST_H

#include <cstdlib>
#include <numeric>  // for accumulate
#include <string>
#include "muParser.h"
#include "muParserInt.h"

/** \file
    \brief This file contains the parser test class.
*/

namespace mu {
/** \brief Namespace for test cases. */
namespace Test {
//------------------------------------------------------------------------------
/** \brief Test cases for unit testing.

  (C) 2004-2011 Ingo Berg
*/
class ParserTester  // final
{
   private:
    static int c_iCount;

    // Multiarg callbacks
    static ValueOrError f1of1(value_type v) { return v; };

    static ValueOrError f1of2(value_type v, value_type) { return v; };
    static ValueOrError f2of2(value_type, value_type v) { return v; };

    static ValueOrError f1of3(value_type v, value_type, value_type) { return v; };
    static ValueOrError f2of3(value_type, value_type v, value_type) { return v; };
    static ValueOrError f3of3(value_type, value_type, value_type v) { return v; };

    static ValueOrError f1of4(value_type v, value_type, value_type, value_type) { return v; }
    static ValueOrError f2of4(value_type, value_type v, value_type, value_type) { return v; }
    static ValueOrError f3of4(value_type, value_type, value_type v, value_type) { return v; }
    static ValueOrError f4of4(value_type, value_type, value_type, value_type v) { return v; }

    static ValueOrError f1of5(value_type v, value_type, value_type, value_type, value_type) {
        return v;
    }
    static ValueOrError f2of5(value_type, value_type v, value_type, value_type, value_type) {
        return v;
    }
    static ValueOrError f3of5(value_type, value_type, value_type v, value_type, value_type) {
        return v;
    }
    static ValueOrError f4of5(value_type, value_type, value_type, value_type v, value_type) {
        return v;
    }
    static ValueOrError f5of5(value_type, value_type, value_type, value_type, value_type v) {
        return v;
    }

    static ValueOrError Min(value_type a_fVal1, value_type a_fVal2) {
        return (a_fVal1 < a_fVal2) ? a_fVal1 : a_fVal2;
    }
    static ValueOrError Max(value_type a_fVal1, value_type a_fVal2) {
        return (a_fVal1 > a_fVal2) ? a_fVal1 : a_fVal2;
    }

    static ValueOrError plus2(value_type v1) { return v1 + 2; }
    static ValueOrError times3(value_type v1) { return v1 * 3; }
    static ValueOrError sqr(value_type v1) { return v1 * v1; }
    static ValueOrError sign(value_type v) { return -v; }
    static ValueOrError add(value_type v1, value_type v2) { return v1 + v2; }
    static ValueOrError land(value_type v1, value_type v2) { return (int)v1 & (int)v2; }

    static ValueOrError FirstArg(const value_type* a_afArg, int a_iArgc) {
        if (!a_iArgc)
            throw mu::Parser::exception_type(_T("too few arguments for function FirstArg."));

        return a_afArg[0];
    }

    static ValueOrError LastArg(const value_type* a_afArg, int a_iArgc) {
        if (!a_iArgc)
            throw mu::Parser::exception_type(_T("too few arguments for function LastArg."));

        return a_afArg[a_iArgc - 1];
    }

    static ValueOrError Sum(const value_type* a_afArg, int a_iArgc) {
        if (!a_iArgc) throw mu::Parser::exception_type(_T("too few arguments for function sum."));

        value_type fRes = 0;
        for (int i = 0; i < a_iArgc; ++i) fRes += a_afArg[i];
        return fRes;
    }

    static ValueOrError Rnd(value_type v) {
        return (value_type)(1 + (v * std::rand() / (RAND_MAX + 1.0)));
    }

    static ValueOrError RndWithString(const char_type*) {
        return (value_type)(1 + (1000.0f * std::rand() / (RAND_MAX + 1.0)));
    }

    static ValueOrError Ping() { return 10; }

    static ValueOrError ValueOf(const char_type*) { return 123; }

    static ValueOrError StrFun1(const char_type* v1) {
        int val(0);
        stringstream_type(v1) >> val;
        return (value_type)val;
    }

    static ValueOrError StrFun2(const char_type* v1, value_type v2) {
        int val(0);
        stringstream_type(v1) >> val;
        return (value_type)(val + v2);
    }

    static ValueOrError StrFun3(const char_type* v1, value_type v2, value_type v3) {
        int val(0);
        stringstream_type(v1) >> val;
        return val + v2 + v3;
    }

    static ValueOrError StrToFloat(const char_type* a_szMsg) {
        value_type val(0);
        stringstream_type(a_szMsg) >> val;
        return val;
    }

    // postfix operator callback
    static ValueOrError Mega(value_type a_fVal) { return a_fVal * (value_type)1e6; }
    static ValueOrError Micro(value_type a_fVal) { return a_fVal * (value_type)1e-6; }
    static ValueOrError Milli(value_type a_fVal) { return a_fVal / (value_type)1e3; }

    // Custom value recognition
    static int IsHexVal(const char_type* a_szExpr, int* a_iPos, value_type* a_fVal);

    int TestNames();
    int TestSyntax();
    int TestMultiArg();
    int TestPostFix();
    int TestExpression();
    int TestInfixOprt();
    int TestBinOprt();
    int TestInterface();
    int TestException();
    int TestStrArg();
    int TestIfThenElse();

    void Abort() const;

   public:
    typedef int (ParserTester::*testfun_type)();

    ParserTester();
    void Run();

   private:
    std::vector<testfun_type> m_vTestFun;
    void AddTest(testfun_type a_pFun);

    // Test Double Parser
    int EqnTest(const string_type& a_str, double a_fRes, bool a_fPass);
    int EqnTestWithVarChange(const string_type& a_str, double a_fRes1, double a_fVar1,
                             double a_fRes2, double a_fVar2);
    int ThrowTest(const string_type& a_str, int a_iErrc, bool a_bFail = true);

    // Test Int Parser
    int EqnTestInt(const string_type& a_str, double a_fRes, bool a_fPass);
};
}  // namespace Test
}  // namespace mu

#endif