|
Lines 91-104
subtest 'The spec passes the swagger-cli validation' => sub {
Link Here
|
| 91 |
|
91 |
|
| 92 |
plan tests => 1; |
92 |
plan tests => 1; |
| 93 |
|
93 |
|
| 94 |
SKIP: { |
94 |
if ( can_run('swagger-cli') ) { |
| 95 |
skip "Skipping tests, swagger-cli missing", 1 |
|
|
| 96 |
unless can_run('swagger-cli'); |
| 97 |
|
| 98 |
my $spec_dir = "$FindBin::Bin/../api/v1/swagger"; |
95 |
my $spec_dir = "$FindBin::Bin/../api/v1/swagger"; |
| 99 |
my $var = qx{swagger-cli validate $spec_dir/swagger.yaml 2>&1}; |
96 |
my $var = qx{swagger-cli validate $spec_dir/swagger.yaml 2>&1}; |
| 100 |
is( $?, 0, 'Validation exit code is 0' ) |
97 |
is( $?, 0, 'Validation exit code is 0' ) |
| 101 |
or diag $var; |
98 |
or diag $var; |
|
|
99 |
} else { |
| 100 |
ok( 0, "Test skipped, swagger-cli missing" ); |
| 102 |
} |
101 |
} |
| 103 |
}; |
102 |
}; |
| 104 |
|
103 |
|
| 105 |
- |
|
|