Update of /cvsroot/boost/boost/libs/fusion/test/sequence
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv6699/sequence
Added Files:
repetitive_view.cpp
Log Message:
adds repetitive_view test
--- NEW FILE: repetitive_view.cpp ---
/*=============================================================================
Copyright (c) 2007 Tobias Schwinger
Use modification and distribution are subject to the Boost Software
License, Version 1.0. (See accompanying file LICENSE_1_0.txt or copy at
http://www.boost.org/LICENSE_1_0.txt).
==============================================================================*/
#include <boost/detail/lightweight_test.hpp>
#include <boost/fusion/sequence/view/repetitive_view.hpp>
#include <boost/fusion/sequence/container/vector.hpp>
#include <boost/fusion/sequence/view/joint_view.hpp>
#include <boost/fusion/algorithm/transformation/zip.hpp>
#include <boost/fusion/algorithm/iteration/for_each.hpp>
#include <boost/type_traits/is_same.hpp>
#include <boost/fusion/sequence/intrinsic/begin.hpp>
#include <boost/fusion/iterator/next.hpp>
#include <boost/fusion/functional/generation/make_fused_procedure.hpp>
struct check_equal
{
template<typename LHS, typename RHS>
void operator()(LHS const& lhs, RHS const& rhs) const
{
BOOST_TEST(( boost::is_same<LHS,RHS>::value ));
BOOST_TEST(( lhs == rhs ));
}
};
int main()
{
using namespace boost::fusion;
typedef boost::fusion::vector<int,long,float,double> seq_t;
seq_t seq(1,2l,3.0f,4.0);
typedef repetitive_view<seq_t> view_t;
view_t view(seq);
typedef joint_view<seq_t,seq_t> seq_twice_t;
typedef joint_view<seq_t,seq_twice_t> seq_repeated_t;
seq_twice_t seq_twice(seq,seq);
seq_repeated_t seq_repeated(seq,seq_twice);
for_each(zip(view,seq_repeated), make_fused_procedure(check_equal()));
return boost::report_errors();
}
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Boost-cvs mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/boost-cvs
