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 //#define KARMA_FAIL_COMPILATION
7
8 #include <boost/config/warning_disable.hpp>
9 #include <boost/detail/lightweight_test.hpp>
10 #include <boost/lexical_cast.hpp>
11 #include <boost/mpl/vector.hpp>
12 #include <boost/mpl/for_each.hpp>
13 #include <boost/mpl/if.hpp>
14 #include <boost/mpl/bool.hpp>
15
16 #include <boost/spirit/include/phoenix_core.hpp>
17 #include <boost/spirit/include/phoenix_operator.hpp>
18 #include <boost/spirit/include/phoenix_statement.hpp>
19
20 #include <boost/spirit/include/karma_char.hpp>
21 #include <boost/spirit/include/karma_numeric.hpp>
22 #include <boost/spirit/include/karma_directive.hpp>
23 #include <boost/spirit/include/karma_action.hpp>
24 #include <boost/spirit/include/karma_rule.hpp>
25 #include <boost/spirit/include/karma_phoenix_attributes.hpp>
26
27 #include <boost/limits.hpp>
28 #include "test.hpp"
29
30 using namespace spirit_test;
31
32
33 ///////////////////////////////////////////////////////////////////////////////
34 int
main()35 main()
36 {
37 using namespace boost::spirit;
38
39 {
40 using namespace boost::spirit::ascii;
41
42 karma::int_generator<int, 10, true> const signed_int =
43 karma::int_generator<int, 10, true>();
44
45 ///////////////////////////////////////////////////////////////////////
46 BOOST_TEST(test(" 0", signed_int, 0));
47 BOOST_TEST(test("+123", signed_int, 123));
48 BOOST_TEST(test("-123", signed_int, -123));
49
50 BOOST_TEST(test_delimited(" 0 ", signed_int, 0, char_(' ')));
51 BOOST_TEST(test_delimited("+123 ", signed_int, 123, char_(' ')));
52 BOOST_TEST(test_delimited("-123 ", signed_int, -123, char_(' ')));
53
54 BOOST_TEST(test(" 0", lower[signed_int], 0));
55 BOOST_TEST(test("+123", lower[signed_int], 123));
56 BOOST_TEST(test("-123", lower[signed_int], -123));
57
58 BOOST_TEST(test_delimited(" 0 ", lower[signed_int], 0, char_(' ')));
59 BOOST_TEST(test_delimited("+123 ", lower[signed_int], 123, char_(' ')));
60 BOOST_TEST(test_delimited("-123 ", lower[signed_int], -123, char_(' ')));
61
62 BOOST_TEST(test(" 0", upper[signed_int], 0));
63 BOOST_TEST(test("+123", upper[signed_int], 123));
64 BOOST_TEST(test("-123", upper[signed_int], -123));
65
66 BOOST_TEST(test_delimited(" 0 ", upper[signed_int], 0, char_(' ')));
67 BOOST_TEST(test_delimited("+123 ", upper[signed_int], 123, char_(' ')));
68 BOOST_TEST(test_delimited("-123 ", upper[signed_int], -123, char_(' ')));
69
70 ///////////////////////////////////////////////////////////////////////
71 BOOST_TEST(test(" 0", signed_int(0)));
72 BOOST_TEST(test("+123", signed_int(123)));
73 BOOST_TEST(test("-123", signed_int(-123)));
74
75 BOOST_TEST(test_delimited(" 0 ", signed_int(0), char_(' ')));
76 BOOST_TEST(test_delimited("+123 ", signed_int(123), char_(' ')));
77 BOOST_TEST(test_delimited("-123 ", signed_int(-123), char_(' ')));
78
79 BOOST_TEST(test(" 0", lower[signed_int(0)]));
80 BOOST_TEST(test("+123", lower[signed_int(123)]));
81 BOOST_TEST(test("-123", lower[signed_int(-123)]));
82
83 BOOST_TEST(test_delimited(" 0 ", lower[signed_int(0)], char_(' ')));
84 BOOST_TEST(test_delimited("+123 ", lower[signed_int(123)], char_(' ')));
85 BOOST_TEST(test_delimited("-123 ", lower[signed_int(-123)], char_(' ')));
86
87 BOOST_TEST(test(" 0", upper[signed_int(0)]));
88 BOOST_TEST(test("+123", upper[signed_int(123)]));
89 BOOST_TEST(test("-123", upper[signed_int(-123)]));
90
91 BOOST_TEST(test_delimited(" 0 ", upper[signed_int(0)], char_(' ')));
92 BOOST_TEST(test_delimited("+123 ", upper[signed_int(123)], char_(' ')));
93 BOOST_TEST(test_delimited("-123 ", upper[signed_int(-123)], char_(' ')));
94
95 using namespace boost::phoenix;
96
97 BOOST_TEST(test(" 0", signed_int(val(0))));
98 BOOST_TEST(test("+123", signed_int(val(123))));
99 BOOST_TEST(test("-123", signed_int(val(-123))));
100
101 int i1 = 0, i2 = 123, i3 = -123;
102 BOOST_TEST(test(" 0", signed_int(ref(i1))));
103 BOOST_TEST(test("+123", signed_int(ref(i2))));
104 BOOST_TEST(test("-123", signed_int(ref(i3))));
105 }
106
107 {
108 ///////////////////////////////////////////////////////////////////////
109 using namespace boost::spirit::ascii;
110
111 BOOST_TEST(test("1234", uint_, 1234));
112 BOOST_TEST(test("ff", hex, 0xff));
113 BOOST_TEST(test("1234", oct, 01234));
114 BOOST_TEST(test("11110000", bin, 0xf0));
115
116 BOOST_TEST(test_delimited("1234 ", uint_, 1234, char_(' ')));
117 BOOST_TEST(test_delimited("ff ", hex, 0xff, char_(' ')));
118 BOOST_TEST(test_delimited("1234 ", oct, 01234, char_(' ')));
119 BOOST_TEST(test_delimited("11110000 ", bin, 0xf0, char_(' ')));
120
121 // test unsigned generator with signed integral value
122 BOOST_TEST(test("ff", hex, (char)0xff));
123 BOOST_TEST(test_delimited("ff ", hex, (char)0xff, char_(' ')));
124
125 BOOST_TEST(test("1234", lower[uint_], 1234));
126 BOOST_TEST(test("ff", lower[hex], 0xff));
127 BOOST_TEST(test("1234", lower[oct], 01234));
128 BOOST_TEST(test("11110000", lower[bin], 0xf0));
129
130 BOOST_TEST(test_delimited("1234 ", lower[uint_], 1234, char_(' ')));
131 BOOST_TEST(test_delimited("ff ", lower[hex], 0xff, char_(' ')));
132 BOOST_TEST(test_delimited("1234 ", lower[oct], 01234, char_(' ')));
133 BOOST_TEST(test_delimited("11110000 ", lower[bin], 0xf0, char_(' ')));
134
135 BOOST_TEST(test("1234", upper[uint_], 1234));
136 BOOST_TEST(test("FF", upper[hex], 0xff));
137 BOOST_TEST(test("1234", upper[oct], 01234));
138 BOOST_TEST(test("11110000", upper[bin], 0xf0));
139
140 BOOST_TEST(test_delimited("1234 ", upper[uint_], 1234, char_(' ')));
141 BOOST_TEST(test_delimited("FF ", upper[hex], 0xff, char_(' ')));
142 BOOST_TEST(test_delimited("1234 ", upper[oct], 01234, char_(' ')));
143 BOOST_TEST(test_delimited("11110000 ", upper[bin], 0xf0, char_(' ')));
144
145 // no generator transformation should occur for uint_'s
146 BOOST_TEST(test("1234", upper[upper[uint_]], 1234));
147 BOOST_TEST(test("1234", upper[lower[uint_]], 1234));
148 BOOST_TEST(test("1234", lower[upper[uint_]], 1234));
149 BOOST_TEST(test("1234", lower[lower[uint_]], 1234));
150
151 BOOST_TEST(test_delimited("1234 ", upper[upper[uint_]], 1234, char_(' ')));
152 BOOST_TEST(test_delimited("1234 ", upper[lower[uint_]], 1234, char_(' ')));
153 BOOST_TEST(test_delimited("1234 ", lower[upper[uint_]], 1234, char_(' ')));
154 BOOST_TEST(test_delimited("1234 ", lower[lower[uint_]], 1234, char_(' ')));
155
156 BOOST_TEST(test("FF", upper[upper[hex]], 0xff));
157 BOOST_TEST(test("FF", upper[lower[hex]], 0xff));
158 BOOST_TEST(test("ff", lower[upper[hex]], 0xff));
159 BOOST_TEST(test("ff", lower[lower[hex]], 0xff));
160
161 BOOST_TEST(test_delimited("FF ", upper[upper[hex]], 0xff, char_(' ')));
162 BOOST_TEST(test_delimited("FF ", upper[lower[hex]], 0xff, char_(' ')));
163 BOOST_TEST(test_delimited("ff ", lower[upper[hex]], 0xff, char_(' ')));
164 BOOST_TEST(test_delimited("ff ", lower[lower[hex]], 0xff, char_(' ')));
165 }
166
167 ///////////////////////////////////////////////////////////////////////////
168 {
169 using boost::spirit::karma::int_;
170 using boost::spirit::karma::_1;
171 using boost::spirit::karma::_val;
172 using boost::spirit::karma::space;
173
174 int i = 123;
175 int j = 456;
176 BOOST_TEST(test("123", int_[_1 = _val], i));
177 BOOST_TEST(test_delimited("456 ", int_[_1 = _val], j, space));
178 }
179
180 return boost::report_errors();
181 }
182
183