forked from functionaljava/functionaljava
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathResult.java
More file actions
216 lines (194 loc) · 5.82 KB
/
Result.java
File metadata and controls
216 lines (194 loc) · 5.82 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
package fj.test;
import fj.F;
import fj.P1;
import fj.data.List;
import fj.data.Option;
import static fj.data.Option.none;
import static fj.data.Option.some;
/**
* The result of evaluating a property.
*
* @version %build.number%
*/
public final class Result {
private final Option<List<Arg<?>>> args;
private final R r;
private final Option<Throwable> t;
private enum R {
Unfalsified, Falsified, Proven, Exception, NoResult
}
private Result(final Option<List<Arg<?>>> args, final R r, final Option<Throwable> t) {
this.args = args;
this.r = r;
this.t = t;
}
/**
* Returns the potential arguments associated with this result. This will only have a value, if
* and only if {@link #noResult(Option) !noResult()} holds.
*
* @return The potential arguments associated with this result.
*/
public Option<List<Arg<?>>> args() {
return args;
}
/**
* Returns the potential exception associated with this result. This will only have a value if and
* only if this result is an exception result.
*
* @return The potential exception associated with this result.
*/
public Option<Throwable> exception() {
return t;
}
/**
* Returns <code>true</code> if this result is unfalsified; otherwise, <code>false</code>.
*
* @return <code>true</code> if this result is unfalsified; otherwise, <code>false</code>.
*/
public boolean isUnfalsified() {
return r == R.Unfalsified;
}
/**
* Returns <code>true</code> if this result is falsified; otherwise, <code>false</code>.
*
* @return <code>true</code> if this result is falsified; otherwise, <code>false</code>.
*/
public boolean isFalsified() {
return r == R.Falsified;
}
/**
* Returns <code>true</code> if this result is proven; otherwise, <code>false</code>.
*
* @return <code>true</code> if this result is proven; otherwise, <code>false</code>.
*/
public boolean isProven() {
return r == R.Proven;
}
/**
* Returns <code>true</code> if this result is an exception; otherwise, <code>false</code>.
*
* @return <code>true</code> if this result is an exception; otherwise, <code>false</code>.
*/
public boolean isException() {
return r == R.Exception;
}
/**
* Returns <code>true</code> if this result is no result; otherwise, <code>false</code>.
*
* @return <code>true</code> if this result is no result; otherwise, <code>false</code>.
*/
public boolean isNoResult() {
return r == R.NoResult;
}
/**
* Returns <code>true</code> if this result is falsified or an exception; otherwise,
* <code>false</code>.
*
* @return <code>true</code> if this result is falsified or an exception; otherwise,
* <code>false</code>.
*/
public boolean failed() {
return isFalsified() || isException();
}
/**
* Returns <code>true</code> if this result is unfalsified or proven; otherwise,
* <code>false</code>.
*
* @return <code>true</code> if this result is unfalsified or proven; otherwise,
* <code>false</code>.
*/
public boolean passed() {
return isUnfalsified() || isProven();
}
/**
* If this result is proven, alter it to be unfalsified with the same arguments; otherwise, return
* <code>this</code>.
*
* @return If this result is proven, alter it to be unfalsified with the same arguments;
* otherwise, return <code>this</code>.
*/
public Result provenAsUnfalsified() {
return isProven() ? unfalsified(args.some()) : this;
}
/**
* Adds an argument to this result.
*
* @param a The argument to add.
* @return A result with the new argument.
*/
public Result addArg(final Arg<?> a) {
final F<Arg<?>, F<List<Arg<?>>, List<Arg<?>>>> cons = List.cons();
return new Result(args.map(cons.f(a)), r, t);
}
/**
* Returns a potential result for this result. This will have a value if this result is
* {@link #noResult(Option) !noResult()}.
*
* @return A potential result for this result.
*/
@SuppressWarnings({"IfMayBeConditional"})
public Option<Result> toOption() {
if(isNoResult())
return none();
else
return some(this);
}
/**
* Returns a result from the given potential result.
*
* @param r The potential result.
* @return The result that may be {@link #noResult() noResult()}.
*/
public static Result noResult(final Option<Result> r) {
return r.orSome(new P1<Result>() {
public Result _1() {
return noResult();
}
});
}
/**
* Returns a result representing no result.
*
* @return A result representing no result.
*/
public static Result noResult() {
return new Result(Option.<List<Arg<?>>>none(), R.NoResult, Option.<Throwable>none());
}
/**
* Returns an unfalsified result.
*
* @param args The arguments used during the failure of falsification.
* @return An unfalsified result.
*/
public static Result unfalsified(final List<Arg<?>> args) {
return new Result(some(args), R.Unfalsified, Option.<Throwable>none());
}
/**
* Returns a falsified result.
*
* @param args The arguments used during falsification.
* @return A falsified result.
*/
public static Result falsified(final List<Arg<?>> args) {
return new Result(some(args), R.Falsified, Option.<Throwable>none());
}
/**
* Returns a proven result.
*
* @param args The arguments used during proof.
* @return A proven result.
*/
public static Result proven(final List<Arg<?>> args) {
return new Result(some(args), R.Proven, Option.<Throwable>none());
}
/**
* Returns an exception result.
*
* @param args The arguments used when the exception occurred.
* @param t The exception that occurred.
* @return A exception result.
*/
public static Result exception(final List<Arg<?>> args, final Throwable t) {
return new Result(some(args), R.Exception, some(t));
}
}