/*******************************************************************************
 *
 * TRIQS: a Toolbox for Research in Interacting Quantum Systems
 *
 * Copyright (C) 2011 by O. Parcollet
 *
 * TRIQS 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.
 *
 * TRIQS 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 for more
 * details.
 *
 * You should have received a copy of the GNU General Public License along with
 * TRIQS. If not, see <http://www.gnu.org/licenses/>.
 *
 ******************************************************************************/
#ifndef TRIQS_ARRAYS_ASSERTS_H
#define TRIQS_ARRAYS_ASSERTS_H
#include "./functional/map.hpp"
#include "./algorithms.hpp"

namespace triqs { namespace arrays {

 template<class T> inline double assert_abs(T z) { return std::abs(z);}

 template<class ArrayType1, class ArrayType2 >
  void assert_all_close( ArrayType1 const & A, ArrayType2 const & B, double precision, bool relative = false) {
   typedef typename ArrayType1::value_type F;
   auto Abs =  map( std::function<double(F)> (assert_abs<F>) );
   auto r =  max_element (Abs(A-B));
   auto r2 =  max_element (Abs(A) + Abs(B));
   if ( r > (relative ? precision * r2 : precision) )
    TRIQS_RUNTIME_ERROR<<"assert_all_close error : \n\n"<<".. A = "<<A<<"\n\n"<<".. B= "<<B<<"\n\n"<< ".. Residue is r = "<<r;
  }

 template<typename T1, typename T2>
 void  assert_equal ( T1 const & x1, T2 const & x2) {
    if (!(x1 == x2)) TRIQS_RUNTIME_ERROR << "Test assert_equal : failed";
  }

 void assert_close(double x1, double x2 ) { 
  if (std::abs(x1-x2) > 1.e-13) TRIQS_RUNTIME_ERROR << "Test assert_equal : failed";
 }
 void assert_close(std::complex<double> x1, std::complex<double> x2 ) { 
  if (std::abs(x1-x2) > 1.e-13) TRIQS_RUNTIME_ERROR << "Test assert_equal : failed";
 }

 // Put here a macro, to print the expression, the line, etc...
 void assert_is_true( bool b) {
  if (!b) TRIQS_RUNTIME_ERROR << "Test assert_is_true : failed";
 }

 void assert_is_false( bool b) {
  if (b) TRIQS_RUNTIME_ERROR << "Test assert_is_false : failed";
 }

}}
#endif