diff options
Diffstat (limited to 'src/boost/libs/spirit/test/qi/utree1.cpp')
-rw-r--r-- | src/boost/libs/spirit/test/qi/utree1.cpp | 197 |
1 files changed, 197 insertions, 0 deletions
diff --git a/src/boost/libs/spirit/test/qi/utree1.cpp b/src/boost/libs/spirit/test/qi/utree1.cpp new file mode 100644 index 000000000..e40bfdb62 --- /dev/null +++ b/src/boost/libs/spirit/test/qi/utree1.cpp @@ -0,0 +1,197 @@ +// Copyright (c) 2001-2011 Hartmut Kaiser +// Copyright (c) 2001-2011 Joel de Guzman +// Copyright (c) 2010 Bryce Lelbach +// +// Distributed under 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/config/warning_disable.hpp> +#include <boost/detail/lightweight_test.hpp> + +#include <boost/mpl/print.hpp> +#include <boost/spirit/include/qi.hpp> +#include <boost/spirit/include/support_utree.hpp> + +#include <sstream> + +#include "test.hpp" + +inline bool check(boost::spirit::utree const& val, std::string expected) +{ + std::stringstream s; + s << val; + if (s.str() == expected + " ") + return true; + + std::cerr << "got result: " << s.str() + << ", expected: " << expected << std::endl; + return false; +} + +int main() +{ + using spirit_test::test_attr; + using boost::spirit::utree; + using boost::spirit::utree_type; + using boost::spirit::utf8_string_range_type; + using boost::spirit::utf8_symbol_type; + using boost::spirit::utf8_string_type; + + using boost::spirit::qi::real_parser; + using boost::spirit::qi::strict_real_policies; + using boost::spirit::qi::digit; + using boost::spirit::qi::char_; + using boost::spirit::qi::string; + using boost::spirit::qi::int_; + using boost::spirit::qi::double_; + using boost::spirit::qi::space; + using boost::spirit::qi::space_type; + using boost::spirit::qi::rule; + using boost::spirit::qi::as; + using boost::spirit::qi::lexeme; + + // primitive data types + { + utree ut; + BOOST_TEST(test_attr("x", char_, ut) && + ut.which() == utree_type::string_type && check(ut, "\"x\"")); + ut.clear(); + BOOST_TEST(test_attr("123", int_, ut) && + ut.which() == utree_type::int_type && check(ut, "123")); + ut.clear(); + BOOST_TEST(test_attr("123.45", double_, ut) && + ut.which() == utree_type::double_type && check(ut, "123.45")); + ut.clear(); + + rule<char const*, utf8_string_type()> r1 = lexeme[*char_]; + + BOOST_TEST(test_attr("foo", r1, ut) && + ut.which() == utree_type::string_type && check(ut, "\"foo\"")); + ut.clear(); + + rule<char const*, utf8_symbol_type()> r2 = lexeme[*char_]; + + BOOST_TEST(test_attr("xyz", r2, ut) && + ut.which() == utree_type::symbol_type && check(ut, "xyz")); + } + + // single character parsers + { + utree ut; + + // this rule returns a utree string + rule<char const*, utree()> r1 = char_("abc"); + + // this rule forces a utree list to be returned + rule<char const*, utree::list_type()> r2 = char_("abc"); + + BOOST_TEST(test_attr("a", r1, ut) && + ut.which() == utree_type::string_type && check(ut, "\"a\"")); + ut.clear(); + BOOST_TEST(test_attr("a", r2, ut) && + ut.which() == utree_type::list_type && check(ut, "( \"a\" )")); + } + + // sequences + { + using boost::spirit::qi::as_string; + + utree ut; + BOOST_TEST(test_attr("xy", char_ >> char_, ut) && + ut.which() == utree_type::list_type && check(ut, "( \"x\" \"y\" )")); + ut.clear(); + BOOST_TEST(test_attr("123 456", int_ >> int_, ut, space) && + ut.which() == utree_type::list_type && check(ut, "( 123 456 )")); + ut.clear(); + BOOST_TEST(test_attr("1.23 4.56", double_ >> double_, ut, space) && + ut.which() == utree_type::list_type && check(ut, "( 1.23 4.56 )")); + ut.clear(); + BOOST_TEST(test_attr("1.2ab", double_ >> *char_, ut) && + ut.which() == utree_type::list_type && check(ut, "( 1.2 \"a\" \"b\" )")); + ut.clear(); + BOOST_TEST(test_attr("ab1.2", *~digit >> double_, ut) && + ut.which() == utree_type::list_type && check(ut, "( \"a\" \"b\" 1.2 )")); + + // forces a utree list + rule<char const*, utree::list_type()> r1 = double_; + + ut.clear(); + BOOST_TEST(test_attr("1.2ab", r1 >> *char_, ut) && + ut.which() == utree_type::list_type && check(ut, "( ( 1.2 ) \"a\" \"b\" )")); + ut.clear(); + BOOST_TEST(test_attr("ab1.2", *~digit >> r1, ut) && + ut.which() == utree_type::list_type && check(ut, "( \"a\" \"b\" ( 1.2 ) )")); + ut.clear(); + + // implicitly a utree list, because of sequence attribute rules + rule<char const*, utree()> r2 = int_ >> char_("!") >> double_; + + BOOST_TEST(test_attr("17!3.14", r2, ut) && + ut.which() == utree_type::list_type && check(ut, "( 17 \"!\" 3.14 )")); + ut.clear(); + + rule<char const*, utree()> r3 = double_ >> as_string[string("foo")] >> int_; + + BOOST_TEST(test_attr("0.5foo5", r3, ut) && + ut.which() == utree_type::list_type && check(ut, "( 0.5 \"foo\" 5 )")); + } + + { + utree ut; + + rule<char const*, utree()> r1 = char_; + rule<char const*, utree::list_type()> r2 = double_; + rule<char const*, utree::list_type()> r3 = char_; + + BOOST_TEST(test_attr("a25.5b", r1 >> r2 >> r3, ut)); + BOOST_TEST(ut.which() == utree_type::list_type); + BOOST_TEST(check(ut, "( \"a\" ( 25.5 ) ( \"b\" ) )")); + ut.clear(); + + BOOST_TEST(test_attr("a25.5b", r3 >> r2 >> r1, ut)); + BOOST_TEST(ut.which() == utree_type::list_type); + BOOST_TEST(check(ut, "( ( \"a\" ) ( 25.5 ) \"b\" )")); + ut.clear(); + + BOOST_TEST(test_attr("a25.5b", char_ >> r2 >> r3, ut)); + BOOST_TEST(ut.which() == utree_type::list_type); + BOOST_TEST(check(ut, "( \"a\" ( 25.5 ) ( \"b\" ) )")); + ut.clear(); + + BOOST_TEST(test_attr("a25.5b", r3 >> r2 >> char_, ut)); + BOOST_TEST(ut.which() == utree_type::list_type); + BOOST_TEST(check(ut, "( ( \"a\" ) ( 25.5 ) \"b\" )")); + ut.clear(); + +#if defined(BOOST_CLANG) +#pragma clang diagnostic push +#pragma clang diagnostic ignored "-Woverloaded-shift-op-parentheses" +#endif + + BOOST_TEST(test_attr("a25.5b", r1 > r2 >> r3, ut)); + BOOST_TEST(ut.which() == utree_type::list_type); + BOOST_TEST(check(ut, "( \"a\" ( 25.5 ) ( \"b\" ) )")); + ut.clear(); + + BOOST_TEST(test_attr("a25.5b", r3 >> r2 > r1, ut)); + BOOST_TEST(ut.which() == utree_type::list_type); + BOOST_TEST(check(ut, "( ( \"a\" ) ( 25.5 ) \"b\" )")); + ut.clear(); + + BOOST_TEST(test_attr("a25.5b", char_ > r2 >> r3, ut)); + BOOST_TEST(ut.which() == utree_type::list_type); + BOOST_TEST(check(ut, "( \"a\" ( 25.5 ) ( \"b\" ) )")); + ut.clear(); + + BOOST_TEST(test_attr("a25.5b", r3 >> r2 > char_, ut)); + BOOST_TEST(ut.which() == utree_type::list_type); + BOOST_TEST(check(ut, "( ( \"a\" ) ( 25.5 ) \"b\" )")); + +#if defined(BOOST_CLANG) +#pragma clang diagnostic pop +#endif + } + + return boost::report_errors(); +} + |