/*******************************************************************************
 *
 * 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/>.
 *
 ******************************************************************************/
#include "./common.hpp"
#include "./src/array.hpp"
#include <iostream>

using namespace triqs::arrays;

auto bad (array<long,1> const & a) DECL_AND_RETURN (a(range(0,3))); 

auto bad2 (array<long,1> const & a) DECL_AND_RETURN (a(0)); 

array_view<long,1> good(array<long,1> const & a) {return a(range(0,3));}


int main(int argc, char **argv) {

 try { 

  array<long,1> A = {1,2,3,4};

  std::cerr<<"A is "<<A<<std::endl;

  {
   auto r = A(range(0,3));
   TEST_ASSERT(r.storage().is_weak);
  }

  {
   auto r = array<long,1> {1,2,3,4} (range(0,3));
   TEST_ASSERT(!r.storage().is_weak);
   std::cerr  << r << r.storage().is_weak << std::endl ;
  }

  {
   auto r = array<long,1> {1,2,3,4} (range(0,3))();
   std::cerr  << r << r.storage().is_weak << std::endl ;
   TEST_ASSERT(!r.storage().is_weak);
  }

  {
   auto r = good ( { 1,2,3,4} );
   std::cerr  << " good "<< r << r.storage().is_weak << std::endl ;
  }

  {
   auto & r = bad2 ( { 1,2,3,4} );
   std::cerr  << " bad2 " << r << std::endl ;
  }

  {
   auto r = bad ( { 1,2,3,4} );
   std::cerr  << " bad " << r << r.storage().is_weak << std::endl ;
  }

 }
 catch (std::exception & e) { std::cout << e.what()<<std::endl;}
 return 0;
}