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 #include <boost/mpl/vector.hpp>
9 #include <boost/mpl/for_each.hpp>
10 #include <boost/mpl/if.hpp>
11 #include <boost/mpl/bool.hpp>
12
13 #include <boost/spirit/include/phoenix_core.hpp>
14 #include <boost/spirit/include/phoenix_operator.hpp>
15
16 #include <boost/spirit/include/karma_char.hpp>
17 #include <boost/spirit/include/karma_numeric.hpp>
18 #include <boost/spirit/include/karma_directive.hpp>
19 #include <boost/spirit/include/karma_action.hpp>
20
21 #include <boost/limits.hpp>
22 #include "test.hpp"
23
24 using namespace spirit_test;
25
26 ///////////////////////////////////////////////////////////////////////////////
27 int
main()28 main()
29 {
30 using namespace boost::spirit;
31
32 {
33 using namespace boost::spirit::ascii;
34
35 ///////////////////////////////////////////////////////////////////////
36 // this is currently ambiguous with character literals
37 BOOST_TEST(test("0", 0));
38 BOOST_TEST(test("123", 123));
39 BOOST_TEST(test("-123", -123));
40
41 BOOST_TEST(test("0", int_, 0));
42 BOOST_TEST(test("123", int_, 123));
43 BOOST_TEST(test("-123", int_, -123));
44
45 BOOST_TEST(test_delimited("0 ", int_, 0, char_(' ')));
46 BOOST_TEST(test_delimited("123 ", int_, 123, char_(' ')));
47 BOOST_TEST(test_delimited("-123 ", int_, -123, char_(' ')));
48
49 BOOST_TEST(test("0", lower[int_], 0));
50 BOOST_TEST(test("123", lower[int_], 123));
51 BOOST_TEST(test("-123", lower[int_], -123));
52
53 BOOST_TEST(test_delimited("0 ", lower[int_], 0, char_(' ')));
54 BOOST_TEST(test_delimited("123 ", lower[int_], 123, char_(' ')));
55 BOOST_TEST(test_delimited("-123 ", lower[int_], -123, char_(' ')));
56
57 BOOST_TEST(test("0", upper[int_], 0));
58 BOOST_TEST(test("123", upper[int_], 123));
59 BOOST_TEST(test("-123", upper[int_], -123));
60
61 BOOST_TEST(test_delimited("0 ", upper[int_], 0, char_(' ')));
62 BOOST_TEST(test_delimited("123 ", upper[int_], 123, char_(' ')));
63 BOOST_TEST(test_delimited("-123 ", upper[int_], -123, char_(' ')));
64
65 ///////////////////////////////////////////////////////////////////////
66 BOOST_TEST(test("0", int_(0)));
67 BOOST_TEST(test("123", int_(123)));
68 BOOST_TEST(test("-123", int_(-123)));
69
70 BOOST_TEST(test_delimited("0 ", int_(0), char_(' ')));
71 BOOST_TEST(test_delimited("123 ", int_(123), char_(' ')));
72 BOOST_TEST(test_delimited("-123 ", int_(-123), char_(' ')));
73
74 BOOST_TEST(test("0", lower[int_(0)]));
75 BOOST_TEST(test("123", lower[int_(123)]));
76 BOOST_TEST(test("-123", lower[int_(-123)]));
77
78 BOOST_TEST(test_delimited("0 ", lower[int_(0)], char_(' ')));
79 BOOST_TEST(test_delimited("123 ", lower[int_(123)], char_(' ')));
80 BOOST_TEST(test_delimited("-123 ", lower[int_(-123)], char_(' ')));
81
82 BOOST_TEST(test("0", upper[int_(0)]));
83 BOOST_TEST(test("123", upper[int_(123)]));
84 BOOST_TEST(test("-123", upper[int_(-123)]));
85
86 BOOST_TEST(test_delimited("0 ", upper[int_(0)], char_(' ')));
87 BOOST_TEST(test_delimited("123 ", upper[int_(123)], char_(' ')));
88 BOOST_TEST(test_delimited("-123 ", upper[int_(-123)], char_(' ')));
89 }
90
91 { // literals, make sure there are no ambiguities
92 BOOST_TEST(test("0", lit(short(0))));
93 BOOST_TEST(test("0", lit(0)));
94 BOOST_TEST(test("0", lit(0L)));
95 #ifdef BOOST_HAS_LONG_LONG
96 BOOST_TEST(test("0", lit(0LL)));
97 #endif
98
99 BOOST_TEST(test("0", lit((unsigned short)0)));
100 BOOST_TEST(test("0", lit(0U)));
101 BOOST_TEST(test("0", lit(0UL)));
102 #ifdef BOOST_HAS_LONG_LONG
103 BOOST_TEST(test("0", lit(0ULL)));
104 #endif
105
106 BOOST_TEST(test("a", lit('a')));
107 BOOST_TEST(test("a", 'a'));
108 BOOST_TEST(test(L"a", L'a'));
109 }
110
111 { // lazy numerics
112 using namespace boost::phoenix;
113
114 BOOST_TEST(test("0", int_(val(0))));
115 BOOST_TEST(test("123", int_(val(123))));
116 BOOST_TEST(test("-123", int_(val(-123))));
117
118 int i1 = 0, i2 = 123, i3 = -123;
119 BOOST_TEST(test("0", int_(ref(i1))));
120 BOOST_TEST(test("123", int_(ref(i2))));
121 BOOST_TEST(test("-123", int_(ref(i3))));
122 }
123
124 {
125 ///////////////////////////////////////////////////////////////////////
126 using namespace boost::spirit::ascii;
127 BOOST_TEST(test("1234", uint_(1234)));
128 BOOST_TEST(test("ff", hex(0xff)));
129 BOOST_TEST(test("1234", oct(01234)));
130 BOOST_TEST(test("11110000", bin(0xf0)));
131
132 BOOST_TEST(test_delimited("1234 ", uint_(1234), char_(' ')));
133 BOOST_TEST(test_delimited("ff ", hex(0xff), char_(' ')));
134 BOOST_TEST(test_delimited("1234 ", oct(01234), char_(' ')));
135 BOOST_TEST(test_delimited("11110000 ", bin(0xf0), char_(' ')));
136
137 BOOST_TEST(test("1234", lower[uint_(1234)]));
138 BOOST_TEST(test("ff", lower[hex(0xff)]));
139 BOOST_TEST(test("1234", lower[oct(01234)]));
140 BOOST_TEST(test("11110000", lower[bin(0xf0)]));
141
142 BOOST_TEST(test_delimited("1234 ", lower[uint_(1234)], char_(' ')));
143 BOOST_TEST(test_delimited("ff ", lower[hex(0xff)], char_(' ')));
144 BOOST_TEST(test_delimited("1234 ", lower[oct(01234)], char_(' ')));
145 BOOST_TEST(test_delimited("11110000 ", lower[bin(0xf0)], char_(' ')));
146
147 BOOST_TEST(test("1234", upper[uint_(1234)]));
148 BOOST_TEST(test("FF", upper[hex(0xff)]));
149 BOOST_TEST(test("1234", upper[oct(01234)]));
150 BOOST_TEST(test("11110000", upper[bin(0xf0)]));
151
152 BOOST_TEST(test_delimited("1234 ", upper[uint_(1234)], char_(' ')));
153 BOOST_TEST(test_delimited("FF ", upper[hex(0xff)], char_(' ')));
154 BOOST_TEST(test_delimited("1234 ", upper[oct(01234)], char_(' ')));
155 BOOST_TEST(test_delimited("11110000 ", upper[bin(0xf0)], char_(' ')));
156
157 BOOST_TEST(test("FF", upper[upper[hex(0xff)]]));
158 BOOST_TEST(test("FF", upper[lower[hex(0xff)]]));
159 BOOST_TEST(test("ff", lower[upper[hex(0xff)]]));
160 BOOST_TEST(test("ff", lower[lower[hex(0xff)]]));
161
162 BOOST_TEST(test_delimited("FF ", upper[upper[hex(0xff)]], char_(' ')));
163 BOOST_TEST(test_delimited("FF ", upper[lower[hex(0xff)]], char_(' ')));
164 BOOST_TEST(test_delimited("ff ", lower[upper[hex(0xff)]], char_(' ')));
165 BOOST_TEST(test_delimited("ff ", lower[lower[hex(0xff)]], char_(' ')));
166 }
167
168 return boost::report_errors();
169 }
170
171