1 files changed, 176 insertions, 0 deletions
diff --git a/src/boost/libs/spirit/test/karma/char1.cpp b/src/boost/libs/spirit/test/karma/char1.cpp
new file mode 100644
index 000000000..e1c4dc40d
--- /dev/null
+++ b/src/boost/libs/spirit/test/karma/char1.cpp
@@ -0,0 +1,176 @@
+//  Copyright (c) 2001-2011 Hartmut Kaiser
+// 
+//  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/spirit/include/karma_char.hpp>
+#include <boost/spirit/include/karma_generate.hpp>
+#include <boost/spirit/include/karma_action.hpp>
+#include <boost/spirit/include/karma_phoenix_attributes.hpp>
+
+#include <boost/spirit/include/phoenix_core.hpp>
+#include <boost/spirit/include/phoenix_operator.hpp>
+#include <boost/spirit/include/phoenix_statement.hpp>
+
+#include "test.hpp"
+
+using namespace spirit_test;
+
+///////////////////////////////////////////////////////////////////////////////
+int
+main()
+{
+    using namespace boost::spirit;
+    using namespace boost::phoenix;
+
+    {
+        using namespace boost::spirit::ascii;
+
+        BOOST_TEST(test("x", 'x'));
+        BOOST_TEST(test(L"x", L'x'));
+        BOOST_TEST(!test("x", 'y'));
+        BOOST_TEST(!test(L"x", L'y'));
+
+        BOOST_TEST(test("x", "x"));
+        BOOST_TEST(test(L"x", L"x"));
+        BOOST_TEST(!test("x", "y"));
+        BOOST_TEST(!test(L"x", L"y"));
+
+        BOOST_TEST(test("x", char_, 'x'));
+        BOOST_TEST(test(L"x", char_, L'x'));
+        BOOST_TEST(!test("x", char_, 'y'));
+        BOOST_TEST(!test(L"x", char_, L'y'));
+
+        BOOST_TEST(test("x", char_('x')));
+        BOOST_TEST(!test("x", char_('y')));
+
+        BOOST_TEST(test("x", char_('x'), 'x'));
+        BOOST_TEST(!test("", char_('y'), 'x'));
+
+        BOOST_TEST(test("x", char_("x")));
+
+        BOOST_TEST(test("a", char_('a', 'z'), 'a'));
+        BOOST_TEST(test("b", char_('a', 'z'), 'b'));
+        BOOST_TEST(!test("", char_('a', 'z'), 'A'));
+
+        BOOST_TEST(test("a", char_("a-z"), 'a'));
+        BOOST_TEST(test("b", char_("a-z"), 'b'));
+        BOOST_TEST(!test("", char_("a-z"), 'A'));
+
+#if defined(KARMA_FAIL_COMPILATION)
+        BOOST_TEST(test("x", char_));           // anychar without a parameter doesn't make any sense
+        BOOST_TEST(test("", char_('a', 'z')));  // char sets without attribute neither
+#endif
+
+        BOOST_TEST(!test("", ~char_('x')));
+
+        BOOST_TEST(!test("", ~char_('x'), 'x'));
+        BOOST_TEST(test("x", ~char_('y'), 'x'));
+
+        BOOST_TEST(!test("", ~char_("x")));
+
+        BOOST_TEST(!test("", ~char_('a', 'z'), 'a'));
+        BOOST_TEST(!test("", ~char_('a', 'z'), 'b'));
+        BOOST_TEST(test("A", ~char_('a', 'z'), 'A'));
+
+        BOOST_TEST(!test("", ~char_("a-z"), 'a'));
+        BOOST_TEST(!test("", ~char_("a-z"), 'b'));
+        BOOST_TEST(test("A", ~char_("a-z"), 'A'));
+
+        BOOST_TEST(test("x", ~~char_('x')));
+        BOOST_TEST(!test("x", ~~char_('y')));
+
+        BOOST_TEST(test("x", ~~char_('x'), 'x'));
+        BOOST_TEST(!test("", ~~char_('y'), 'x'));
+
+        BOOST_TEST(test("x", ~~char_("x")));
+
+        BOOST_TEST(test("a", ~~char_('a', 'z'), 'a'));
+        BOOST_TEST(test("b", ~~char_('a', 'z'), 'b'));
+        BOOST_TEST(!test("", ~~char_('a', 'z'), 'A'));
+
+        BOOST_TEST(test("a", ~~char_("a-z"), 'a'));
+        BOOST_TEST(test("b", ~~char_("a-z"), 'b'));
+        BOOST_TEST(!test("", ~~char_("a-z"), 'A'));
+    }
+
+    {
+        using namespace boost::spirit::standard_wide;
+
+        BOOST_TEST(test(L"x", 'x'));
+        BOOST_TEST(test(L"x", L'x'));
+        BOOST_TEST(!test(L"x", 'y'));
+        BOOST_TEST(!test(L"x", L'y'));
+
+        BOOST_TEST(test(L"x", "x"));
+        BOOST_TEST(test(L"x", L"x"));
+        BOOST_TEST(!test(L"x", "y"));
+        BOOST_TEST(!test(L"x", L"y"));
+
+        BOOST_TEST(test(L"x", char_, 'x'));
+        BOOST_TEST(test(L"x", char_, L'x'));
+        BOOST_TEST(!test(L"x", char_, 'y'));
+        BOOST_TEST(!test(L"x", char_, L'y'));
+
+        BOOST_TEST(test(L"x", char_('x')));
+        BOOST_TEST(test(L"x", char_(L'x')));
+        BOOST_TEST(!test(L"x", char_('y')));
+        BOOST_TEST(!test(L"x", char_(L'y')));
+
+        BOOST_TEST(test(L"x", char_(L'x'), L'x'));
+        BOOST_TEST(!test(L"", char_('y'), L'x'));
+
+        BOOST_TEST(test(L"x", char_(L"x")));
+
+        BOOST_TEST(test("a", char_("a", "z"), 'a'));
+        BOOST_TEST(test(L"a", char_(L"a", L"z"), L'a'));
+
+#if defined(KARMA_FAIL_COMPILATION)
+        BOOST_TEST(test("x", char_));           // anychar without a parameter doesn't make any sense
+#endif
+
+        BOOST_TEST(!test(L"", ~char_('x')));
+        BOOST_TEST(!test(L"", ~char_(L'x')));
+
+        BOOST_TEST(!test(L"", ~char_(L'x'), L'x'));
+        BOOST_TEST(test(L"x", ~char_('y'), L'x'));
+
+        BOOST_TEST(!test(L"", ~char_(L"x")));
+    }
+
+    {   // lazy chars
+        namespace ascii = boost::spirit::ascii;
+        namespace wide = boost::spirit::standard_wide;
+
+        using namespace boost::phoenix;
+
+        BOOST_TEST((test("x", ascii::char_(val('x')))));
+        BOOST_TEST((test(L"x", wide::char_(val(L'x')))));
+
+        BOOST_TEST((test("x", ascii::char_(val('x')), 'x')));
+        BOOST_TEST((test(L"x", wide::char_(val(L'x')), L'x')));
+
+        BOOST_TEST((!test("", ascii::char_(val('y')), 'x')));
+        BOOST_TEST((!test(L"", wide::char_(val(L'y')), L'x')));
+    }
+
+    // we can pass optionals as attributes to any generator
+    {
+        namespace ascii = boost::spirit::ascii;
+        namespace wide = boost::spirit::standard_wide;
+
+        boost::optional<char> v;
+        boost::optional<wchar_t> w;
+
+        BOOST_TEST(!test("", ascii::char_, v));
+        BOOST_TEST(!test(L"", wide::char_, w));
+
+        BOOST_TEST(!test("", ascii::char_('x'), v));
+        BOOST_TEST(!test(L"", wide::char_(L'x'), w));
+    }
+
+    return boost::report_errors();
+}