LeechCraft  0.6.70-13729-g7046a9d2a7
Modular cross-platform feature rich live environment.
monadplustest.cpp
Go to the documentation of this file.
1 /**********************************************************************
2  * LeechCraft - modular cross-platform feature rich internet client.
3  * Copyright (C) 2006-2014 Georg Rudoy
4  *
5  * Boost Software License - Version 1.0 - August 17th, 2003
6  *
7  * Permission is hereby granted, free of charge, to any person or organization
8  * obtaining a copy of the software and accompanying documentation covered by
9  * this license (the "Software") to use, reproduce, display, distribute,
10  * execute, and transmit the Software, and to prepare derivative works of the
11  * Software, and to permit third-parties to whom the Software is furnished to
12  * do so, all subject to the following:
13  *
14  * The copyright notices in the Software and this entire statement, including
15  * the above license grant, this restriction and the following disclaimer,
16  * must be included in all copies of the Software, in whole or in part, and
17  * all derivative works of the Software, unless such copies or derivative
18  * works are solely in the form of machine-executable object code generated by
19  * a source language processor.
20  *
21  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
22  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
23  * FITNESS FOR A PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT
24  * SHALL THE COPYRIGHT HOLDERS OR ANYONE DISTRIBUTING THE SOFTWARE BE LIABLE
25  * FOR ANY DAMAGES OR OTHER LIABILITY, WHETHER IN CONTRACT, TORT OR OTHERWISE,
26  * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
27  * DEALINGS IN THE SOFTWARE.
28  **********************************************************************/
29 
30 #include "monadplustest.h"
31 
32 #include "monadtest.h"
33 #include <QtTest>
34 #include <monadplus.h>
35 #include <lazy.h>
36 #include <typelist.h>
37 
38 QTEST_MAIN (LC::Util::MonadPlusTest)
39 
40 namespace LC
41 {
42 namespace Util
43 {
44  void MonadPlusTest::testBoostOptionalMplus ()
45  {
46  const boost::optional<int> val1 { 1 };
47  const boost::optional<int> val2 { 2 };
48  const auto nothing = Mzero<boost::optional<int>> ();
49 
50  const auto res1 = val1 + val2;
51  const auto res2 = val1 + nothing;
52  const auto res3 = nothing + val1;
53  const auto res4 = nothing + nothing;
54 
55  QCOMPARE (res1, val1);
56  QCOMPARE (res2, val1);
57  QCOMPARE (res3, val1);
58  QCOMPARE (res4, nothing);
59  }
60 
61  void MonadPlusTest::testBoostOptionalMsum ()
62  {
63  const boost::optional<int> val1 { 1 };
64  const boost::optional<int> val2 { 2 };
65  const boost::optional<int> val3 { 3 };
66  const auto nothing = Mzero<boost::optional<int>> ();
67 
68  const auto res1 = Msum ({ val1, val2, val3 });
69  const auto res2 = Msum ({ val1, nothing });
70  const auto res3 = Msum ({ nothing, val1 });
71  const auto res4 = Msum ({ nothing, nothing });
72  const auto res5 = Msum ({ nothing });
73 
74  QCOMPARE (res1, val1);
75  QCOMPARE (res2, val1);
76  QCOMPARE (res3, val1);
77  QCOMPARE (res4, nothing);
78  QCOMPARE (res5, nothing);
79  }
80 
81  void MonadPlusTest::testLazyBoostOptionalMsum ()
82  {
83  const auto val1 = MakeLazy (boost::optional<int> { 1 });
84  const auto val2 = MakeLazy (boost::optional<int> { 2 });
85  const auto val3 = MakeLazy (boost::optional<int> { 3 });
86  const auto nothing = MakeLazy (Mzero<boost::optional<int>> ());
87 
88  const auto res1 = Msum ({ val1, val2, val3 });
89  const auto res2 = Msum ({ val1, nothing });
90  const auto res3 = Msum ({ nothing, val1 });
91  const auto res4 = Msum ({ nothing, nothing });
92  const auto res5 = Msum ({ nothing });
93 
94  QCOMPARE (res1 (), val1 ());
95  QCOMPARE (res2 (), val1 ());
96  QCOMPARE (res3 (), val1 ());
97  QCOMPARE (res4 (), nothing ());
98  QCOMPARE (res5 (), nothing ());
99  }
100 }
101 }
Lazy_t< T > MakeLazy(const T &t)
Definition: lazy.h:43
const struct LC::Util::@2 Msum
Definition: constants.h:35
MP Mzero()
Definition: monadplus.h:68