1 // Copyright (c) 2001-2011 Hartmut Kaiser
2 //
3 // Distributed under the Boost Software License, Version 1.0. (See accompanying
4 // file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
5
6 #include <boost/config/warning_disable.hpp>
7 #include <boost/detail/lightweight_test.hpp>
8
9 #include <boost/spirit/include/karma_char.hpp>
10 #include <boost/spirit/include/karma_generate.hpp>
11 #include <boost/spirit/include/karma_action.hpp>
12 #include <boost/spirit/include/karma_phoenix_attributes.hpp>
13
14 #include <boost/spirit/include/phoenix_core.hpp>
15 #include <boost/spirit/include/phoenix_operator.hpp>
16 #include <boost/spirit/include/phoenix_statement.hpp>
17
18 #include "test.hpp"
19
20 using namespace spirit_test;
21
22 ///////////////////////////////////////////////////////////////////////////////
23 int
main()24 main()
25 {
26 using namespace boost::spirit;
27 using namespace boost::phoenix;
28
29 {
30 using namespace boost::spirit::ascii;
31
32 BOOST_TEST(test(" ", space));
33 BOOST_TEST(test(L" ", space));
34 BOOST_TEST(!test("\t", space));
35 BOOST_TEST(!test(L"\t", space));
36
37 BOOST_TEST(test(" ", space, ' '));
38 BOOST_TEST(test(L" ", space, L' '));
39 BOOST_TEST(test("\t", space, '\t'));
40 BOOST_TEST(test(L"\t", space, L'\t'));
41
42 BOOST_TEST(!test("", space, 'x'));
43 BOOST_TEST(!test(L"", space, L'x'));
44
45 BOOST_TEST(!test(" ", ~space, ' '));
46 BOOST_TEST(!test(L" ", ~space, L' '));
47
48 BOOST_TEST(test("x", ~space, 'x'));
49 BOOST_TEST(test(L"x", ~space, L'x'));
50 }
51
52 {
53 using namespace boost::spirit::standard_wide;
54
55 BOOST_TEST(test(" ", space));
56 BOOST_TEST(test(L" ", space));
57 BOOST_TEST(!test("\t", space));
58 BOOST_TEST(!test(L"\t", space));
59
60 BOOST_TEST(test(" ", space, ' '));
61 BOOST_TEST(test(L" ", space, L' '));
62 BOOST_TEST(test("\t", space, '\t'));
63 BOOST_TEST(test(L"\t", space, L'\t'));
64
65 BOOST_TEST(!test("", space, 'x'));
66 BOOST_TEST(!test(L"", space, L'x'));
67 }
68
69 {
70 using namespace boost::spirit::ascii;
71
72 BOOST_TEST(test_delimited("x ", 'x', ' '));
73 BOOST_TEST(test_delimited(L"x ", L'x', L' '));
74 BOOST_TEST(!test_delimited("x ", 'y', ' '));
75 BOOST_TEST(!test_delimited(L"x ", L'y', L' '));
76
77 BOOST_TEST(test_delimited("x ", 'x', ' '));
78 BOOST_TEST(test_delimited(L"x ", L'x', L' '));
79 BOOST_TEST(!test_delimited("x ", 'y', ' '));
80 BOOST_TEST(!test_delimited(L"x ", L'y', L' '));
81
82 BOOST_TEST(test_delimited("x ", char_, 'x', ' '));
83 BOOST_TEST(test_delimited(L"x ", char_, L'x', L' '));
84 BOOST_TEST(!test_delimited("x ", char_, 'y', ' '));
85 BOOST_TEST(!test_delimited(L"x ", char_, L'y', L' '));
86
87 BOOST_TEST(test_delimited("x ", char_('x'), ' '));
88 BOOST_TEST(!test_delimited("x ", char_('y'), ' '));
89
90 BOOST_TEST(test_delimited("x ", char_('x'), 'x', ' '));
91 BOOST_TEST(!test_delimited("", char_('y'), 'x', ' '));
92
93 BOOST_TEST(test_delimited("x ", char_("x"), ' '));
94
95 #if defined(KARMA_FAIL_COMPILATION)
96 BOOST_TEST(test_delimited("x ", char_, ' ')); // anychar without a parameter doesn't make any sense
97 #endif
98 }
99
100 { // pre-delimiting
101 {
102 std::string generated;
103 std::back_insert_iterator<std::string> it(generated);
104 BOOST_TEST(karma::generate_delimited(it, '_', '^'
105 , karma::delimit_flag::predelimit));
106 BOOST_TEST(generated == "^_^");
107 }
108 {
109 using namespace boost::spirit::standard_wide;
110 std::basic_string<wchar_t> generated;
111 std::back_insert_iterator<std::basic_string<wchar_t> > it(generated);
112 BOOST_TEST(karma::generate_delimited(it, char_, L'.'
113 , karma::delimit_flag::predelimit, L'x'));
114 BOOST_TEST(generated == L".x.");
115 }
116 }
117
118 // action tests
119 {
120 using namespace boost::spirit::ascii;
121
122 BOOST_TEST(test("x", char_[_1 = val('x')]));
123 BOOST_TEST(!test("x", char_[_1 = val('y')]));
124 }
125
126 // we support Phoenix attributes only starting with V2.2
127 #if SPIRIT_VERSION >= 0x2020
128 // yes, we can use phoenix expressions as attributes as well
129 // but only if we include karma_phoenix_attributes.hpp
130 {
131 namespace ascii = boost::spirit::ascii;
132 namespace phoenix = boost::phoenix;
133
134 BOOST_TEST(test("x", ascii::char_, phoenix::val('x')));
135
136 char c = 'x';
137 BOOST_TEST(test("x", ascii::char_, phoenix::ref(c)));
138 BOOST_TEST(test("y", ascii::char_, ++phoenix::ref(c)));
139 }
140 #endif
141
142 {
143 namespace ascii = boost::spirit::ascii;
144 namespace wide = boost::spirit::standard_wide;
145
146 boost::optional<char> v ('x');
147 boost::optional<wchar_t> w (L'x');
148
149 BOOST_TEST(test("x", ascii::char_, v));
150 BOOST_TEST(test(L"x", wide::char_, w));
151 BOOST_TEST(test("x", ascii::char_('x'), v));
152 BOOST_TEST(test(L"x", wide::char_(L'x'), w));
153 BOOST_TEST(!test("", ascii::char_('y'), v));
154 BOOST_TEST(!test(L"", wide::char_(L'y'), w));
155 }
156
157 return boost::report_errors();
158 }
159