| line |
true |
false |
branch |
|
47
|
162 |
116 |
$test->{'valid'} ? :
|
|
49
|
162 |
116 |
if ($test->{'valid'}) { }
|
|
50
|
161 |
1 |
if ($rt eq 'bool_valid') { }
|
|
|
1 |
0 |
elsif ($rt eq 'str_errmsg') { }
|
|
|
0 |
0 |
elsif ($rt eq 'hash_details') { }
|
|
53
|
0 |
1 |
unless $testres = &is($res, "", $name)
|
|
55
|
0 |
0 |
unless $testres = &is(scalar keys %{$$res{"errors"};}, 0, $name)
|
|
58
|
116 |
0 |
if ($rt eq 'bool_valid') { }
|
|
|
0 |
0 |
elsif ($rt eq 'str_errmsg') { }
|
|
|
0 |
0 |
elsif ($rt eq 'hash_details') { }
|
|
61
|
0 |
0 |
unless $testres = &isnt($res, "", $name)
|
|
63
|
0 |
0 |
unless $testres = &isnt(scalar keys %{$$res{"errors"};}, 0, $name)
|
|
66
|
278 |
0 |
if $testres
|
|
73
|
0 |
0 |
$test->{'valid'} ? :
|
|
101
|
0 |
1 |
if ('version'->parse($Sah::VERSION) == 'version'->parse('0.9.27')) { }
|
|
108
|
0 |
1 |
unless $dir and -d $dir
|
|
109
|
0 |
1 |
unless -f "$dir/spectest/00-normalize_schema.json"
|
|
120
|
0 |
1 |
if ($ENV{'TEST_SAH_SPECTEST_FILES'}) { }
|
|
128
|
0 |
1 |
if ($ENV{'TEST_SAH_SPECTEST_TYPES'})
|
|
134
|
0 |
1 |
if ($ENV{'TEST_SAH_SPECTEST_INCLUDE_TAGS'})
|
|
141
|
0 |
1 |
if ($ENV{'TEST_SAH_SPECTEST_EXCLUDE_TAGS'})
|
|
149
|
0 |
1503 |
if ($test->{'tags'} and @exclude_tags)
|
|
150
|
0 |
0 |
if (any_match(\@exclude_tags, $test->{'tags'}))
|
|
155
|
0 |
1503 |
if (@include_tags)
|
|
156
|
0 |
0 |
unless (all_match(\@include_tags, $test->{'tags'} // []))
|
|
165
|
1 |
0 |
unless $args{'test_normalize_schema'}
|
|
168
|
0 |
0 |
unless (not @files or grep {$_ eq $file;} @files)
|
|
176
|
0 |
0 |
if (my $reason = &$code_test_excluded($test))
|
|
185
|
0 |
0 |
if ($test->{'dies'}) { }
|
|
188
|
0 |
0 |
unless &ok(!$eval_err, "doesn't die")
|
|
199
|
0 |
1 |
unless $args{'test_merge_clause_sets'}
|
|
203
|
0 |
0 |
unless (not @files or grep {$_ eq $file;} @files)
|
|
211
|
0 |
0 |
if (my $reason = &$code_test_excluded($test))
|
|
220
|
0 |
0 |
if ($test->{'dies'}) { }
|
|
223
|
0 |
0 |
unless &ok(!$eval_err, "doesn't die")
|
|
234
|
11 |
13 |
unless /^10-type-/
|
|
235
|
0 |
14 |
unless (not @files or grep {$_ eq $file;} @files)
|
|
244
|
0 |
14 |
if ($args{'tests_func'}) { }
|
|
|
14 |
0 |
elsif ($args{'test_func'}) { }
|
|
253
|
1584 |
0 |
if ($args{'skip_if'})
|
|
255
|
81 |
1503 |
if $skip_reason
|
|
258
|
0 |
1503 |
if $skip_reason
|
|
262
|
81 |
1503 |
if ($skip_reason)
|
|
285
|
18522 |
239 |
unless grep {$_ eq $el;} @$list2
|
|
294
|
0 |
0 |
if grep {$_ eq $el;} @$list2
|
|
303
|
0 |
0 |
if grep {$_ eq $el;} @$list2
|