|
1 | 1 | package fj; |
2 | 2 |
|
3 | 3 | import fj.test.Property; |
| 4 | +import fj.test.runner.PropertyTestRunner; |
4 | 5 | import org.junit.Test; |
| 6 | +import org.junit.runner.RunWith; |
5 | 7 |
|
6 | 8 | import static fj.test.Arbitrary.arbInteger; |
7 | 9 | import static fj.test.CheckResult.summary; |
|
12 | 14 | /** |
13 | 15 | * Created by mperry on 14/07/2014. |
14 | 16 | */ |
| 17 | +@RunWith(PropertyTestRunner.class) |
15 | 18 | public class MemoisationTest { |
16 | 19 |
|
17 | | - @Test |
18 | | - public void test1() { |
19 | | - final Property p = property(arbInteger, a -> { |
20 | | - P1<Integer> t = P.p(a).memo(); |
21 | | - return prop(t._1() == t._1()); |
| 20 | + public Property test1() { |
| 21 | + return property(arbInteger, a -> { |
| 22 | + P1<Integer> t = P.lazy(() -> a).memo(); |
| 23 | + return prop(t._1().equals(t._1())).and(prop(t._1().equals(a))); |
22 | 24 | }); |
23 | | - summary.println(p.check()); |
24 | 25 | } |
25 | 26 |
|
26 | | - @Test |
27 | | - public void test2() { |
28 | | - final Property p = property(arbInteger, arbInteger, (a, b) -> { |
29 | | - P2<Integer, Integer> t = P.p(a, b).memo(); |
30 | | - return prop(t._1() == t._1() && t._2() == t._2()); |
| 27 | + public Property test1_hardMemo() { |
| 28 | + return property(arbInteger, a -> { |
| 29 | + P1<Integer> t = P.lazy(() -> new Integer(a)).hardMemo(); |
| 30 | + return prop(t._1() == t._1()).and(prop(t._1().equals(a))); |
31 | 31 | }); |
32 | | - summary.println(p.check()); |
33 | | - } |
34 | | - |
35 | | - static P2<Integer, Integer> pair = P.p(0, 0); |
36 | | - |
37 | | - static Integer count(int i) { |
38 | | - if (i == 1) { |
39 | | - pair = P.p(pair._1() + 1, pair._2()); |
40 | | - return pair._1(); |
41 | | - } else if (i == 2) { |
42 | | - pair = P.p(pair._1(), pair._2() + 1); |
43 | | - return pair._2(); |
44 | | - } else { |
45 | | - return -1; |
46 | | - } |
47 | 32 | } |
48 | 33 |
|
49 | 34 | @Test |
50 | | - public void testRecomputeP2() { |
51 | | - P2<Integer, Integer> t = P.lazy(u -> count(1), u -> count(2)).memo(); |
52 | | - System.out.println("tuple: " + t + " 1:" + t._1() + " 2: " + t._2()); |
53 | | - assertTrue(t._1() == t._1() && t._2() == t._2()); |
| 35 | + public Property test2() { |
| 36 | + return property(arbInteger, arbInteger, (a, b) -> { |
| 37 | + P2<Integer, Integer> t = P.lazy(u -> new Integer(a), u -> new Integer(b)).memo(); |
| 38 | + return prop(t._1().equals(t._1()) && t._1().equals(a) && t._2().equals(t._2()) && t._2().equals(b) ); |
| 39 | + }); |
54 | 40 | } |
55 | 41 |
|
56 | 42 | @Test |
57 | | - public void test3() { |
58 | | - final Property p = property(arbInteger, arbInteger, arbInteger, (a, b, c) -> { |
| 43 | + public Property test3() { |
| 44 | + return property(arbInteger, arbInteger, arbInteger, (a, b, c) -> { |
59 | 45 | P3<Integer, Integer, Integer> t = P.p(a, b, c).memo(); |
60 | 46 | return prop(t._1() == t._1() && t._2() == t._2() && t._3() == t._3()); |
61 | 47 | }); |
62 | | - summary.println(p.check()); |
63 | 48 | } |
64 | 49 |
|
65 | 50 | @Test |
66 | | - public void test4() { |
67 | | - final Property p = property(arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d) -> { |
| 51 | + public Property test4() { |
| 52 | + return property(arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d) -> { |
68 | 53 | P4<Integer, Integer, Integer, Integer> t = P.p(a, b, c, d).memo(); |
69 | 54 | return prop(t._1() == t._1() && t._2() == t._2() && t._3() == t._3() && t._4() == t._4()); |
70 | 55 | }); |
71 | | - summary.println(p.check()); |
72 | 56 | } |
73 | 57 |
|
74 | 58 | @Test |
75 | | - public void test5() { |
76 | | - final Property p = property(arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d, e) -> { |
| 59 | + public Property test5() { |
| 60 | + return property(arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d, e) -> { |
77 | 61 | P5<Integer, Integer, Integer, Integer, Integer> t = P.p(a, b, c, d, e).memo(); |
78 | 62 | return prop(t._1() == t._1() && t._2() == t._2() && t._3() == t._3() && t._4() == t._4() && t._5() == t._5()); |
79 | 63 | }); |
80 | | - summary.println(p.check()); |
81 | 64 | } |
82 | 65 |
|
83 | 66 | @Test |
84 | | - public void test6() { |
85 | | - final Property p = property(arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d, e, f) -> { |
| 67 | + public Property test6() { |
| 68 | + return property(arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d, e, f) -> { |
86 | 69 | P6<Integer, Integer, Integer, Integer, Integer, Integer> t = P.p(a, b, c, d, e, f).memo(); |
87 | 70 | return prop(t._1() == t._1() && t._2() == t._2() && t._3() == t._3() && t._4() == t._4() && t._5() == t._5() && t._6() == t._6()); |
88 | 71 | }); |
89 | | - summary.println(p.check()); |
90 | 72 | } |
91 | 73 |
|
92 | 74 | @Test |
93 | | - public void test7() { |
94 | | - final Property p = property(arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d, e, f, g) -> { |
| 75 | + public Property test7() { |
| 76 | + return property(arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d, e, f, g) -> { |
95 | 77 | P7<Integer, Integer, Integer, Integer, Integer, Integer, Integer> t = P.p(a, b, c, d, e, f, g).memo(); |
96 | 78 | return prop(t._1() == t._1() && t._2() == t._2() && t._3() == t._3() && t._4() == t._4() && t._5() == t._5() && t._6() == t._6() && t._7() == t._7()); |
97 | 79 | }); |
98 | | - summary.println(p.check()); |
99 | 80 | } |
100 | 81 |
|
101 | 82 | @Test |
102 | | - public void test8() { |
103 | | - final Property p = property(arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d, e, f, g, h) -> { |
| 83 | + public Property test8() { |
| 84 | + return property(arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, arbInteger, (a, b, c, d, e, f, g, h) -> { |
104 | 85 | P8<Integer, Integer, Integer, Integer, Integer, Integer, Integer, Integer> t = P.p(a, b, c, d, e, f, g, h).memo(); |
105 | 86 | return prop(t._1() == t._1() && t._2() == t._2() && t._3() == t._3() && t._4() == t._4() && t._5() == t._5() && t._6() == t._6() && t._7() == t._7() && t._8() == t._8()); |
106 | 87 | }); |
107 | | - summary.println(p.check()); |
108 | 88 | } |
109 | 89 |
|
110 | 90 | } |
0 commit comments