//+------------------------------------------------------------------+
//|                                                    UnitTests.mq5 |
//|                                                   Douglas Rechia |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright   "Douglas Rechia"
#property link        "https://knitpkg.dev"
#property description "Description: Unit tests for package calc"
#property description "Organization: douglasrechia"
#property description "Author: Doug"
#property description "License: MIT"
#property description ""
#property description "Powered by KnitPkg for MetaTrader"
#property description "https://knitpkg.dev"

#include "../knitpkg/include/douglasrechia/calc/Calc.mqh"
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool TestBar1()
  {
   douglasrechia::BarMqlRates bar(_Symbol, PERIOD_CURRENT);
   if(!bar.Refresh(15))
      return false;

   MqlRates          m_rates[];
   ArraySetAsSeries(m_rates, true);

   if(CopyRates(_Symbol, PERIOD_CURRENT, 0, 10, m_rates) <= 0)
      return false;

   return bar.Close(1) == m_rates[1].close &&
          bar.Close(2) == m_rates[2].close &&
          bar.Close(3) == m_rates[3].close &&
          bar.Close(4) == m_rates[4].close &&
          bar.Size() == 15;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool TestSMA1()
  {
   douglasrechia::BarMqlRates bar(_Symbol, PERIOD_CURRENT);
   if(!bar.Refresh(15))
      return false;

   double sma = douglasrechia::SMA(bar.CloseSeries(), 5, 0);

   double smaExpected = (bar.Close(0) + bar.Close(1) + bar.Close(2) + bar.Close(3) + bar.Close(4))/5.0;

   return sma == smaExpected;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
bool TestSMA2()
  {
   douglasrechia::BarMqlRates bar(_Symbol, PERIOD_CURRENT);
   if(!bar.Refresh(15))
      return false;

   double sma = douglasrechia::SMA(bar.OpenSeries(), 5, 0);

   double smaExpected = (bar.Open(0) + bar.Open(1) + bar.Open(2) + bar.Open(3) + bar.Open(4))/5.0;

   return sma == smaExpected;
  }
//+------------------------------------------------------------------+
//| DoTests                                                |
//+------------------------------------------------------------------+
void DoTests(int &tests_performed,int &tests_passed)
  {
   string test_name="";

//--- Test1
   tests_performed++;
   test_name="TestBar1";
   if(TestBar1())
     {
      tests_passed++;
      PrintFormat("%s pass",test_name);
     }
   else
      PrintFormat("%s failed",test_name);

//--- Test2
   tests_performed++;
   test_name="TestSMA1";
   if(TestSMA1())
     {
      tests_passed++;
      PrintFormat("%s pass",test_name);
     }
   else
      PrintFormat("%s failed",test_name);

//--- Test3
   tests_performed++;
   test_name="TestSMA2";
   if(TestSMA2())
     {
      tests_passed++;
      PrintFormat("%s pass",test_name);
     }
   else
      PrintFormat("%s failed",test_name);
  }
//+------------------------------------------------------------------+
//| UnitTests()                                                      |
//+------------------------------------------------------------------+
void UnitTests(const string package_name)
  {
   PrintFormat("Unit tests for Package %s\n",package_name);
//--- initial values
   int tests_performed=0;
   int tests_passed=0;
//--- test distributions
   DoTests(tests_performed,tests_passed);
//--- print statistics
   PrintFormat("\n%d of %d passed",tests_passed,tests_performed);
  }
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
   UnitTests("Calc");
  }
//+------------------------------------------------------------------+