File tree Expand file tree Collapse file tree 1 file changed +4
-1
lines changed Expand file tree Collapse file tree 1 file changed +4
-1
lines changed Original file line number Diff line number Diff line change @@ -55,6 +55,8 @@ sub acceptance_tests (%options) {
55
55
die ' results inconsistent between short_circuit = false and true'
56
56
if not $ENV {NO_SHORT_CIRCUIT } and ($result -> {valid } xor $result_short -> {valid });
57
57
58
+ my $in_todo ;
59
+
58
60
# if any errors contain an exception, generate a warning so we can be sure
59
61
# to count that as a failure (an exception would be caught and perhaps TODO'd).
60
62
# (This might change if tests are added that are expected to produce exceptions.)
@@ -63,7 +65,8 @@ sub acceptance_tests (%options) {
63
65
foreach
64
66
grep +($_ -> {error } =~ / ^EXCEPTION/
65
67
&& $_ -> {error } !~ / but short_circuit is enabled/ # unevaluated*
66
- && $_ -> {error } !~ / (max|min)imum value is not a number$ / ), # optional/bignum.json
68
+ && $_ -> {error } !~ / (max|min)imum value is not a number$ / ) # optional/bignum.json
69
+ && !($in_todo //= grep $_ -> {todo }, Test2::API::test2_stack-> top-> {_pre_filters }-> @*),
67
70
$r -> {errors }-> @*;
68
71
}
69
72
You can’t perform that action at this time.
0 commit comments