diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-04-01 22:37:03 +0200 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-04-01 22:37:03 +0200 |
| commit | c1cec8b019116c317eca07cba562083d63e12954 (patch) | |
| tree | 07cf2e31714f28e92bf9e871af72eb2e62ce1ab4 /t/03-online.t | |
| parent | d3ae316677abeebc5de55f5d2858e517b78d4dea (diff) | |
| download | sbotools2-c1cec8b019116c317eca07cba562083d63e12954.tar.xz | |
Check for error condition in test
Diffstat (limited to 't/03-online.t')
| -rwxr-xr-x | t/03-online.t | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/t/03-online.t b/t/03-online.t index c04366f..c9354ef 100755 --- a/t/03-online.t +++ b/t/03-online.t @@ -40,11 +40,14 @@ chk_slackbuilds_txt(); # 1-2: check_distfiles test { - my $symlinks; - stderr_like(sub { $symlinks = check_distfiles(LOCATION => "$repo_path/perl/perl-Sort-Versions"); }, + my ($symlinks, $exit); + stderr_like(sub { ($symlinks, $exit) = check_distfiles(LOCATION => "$repo_path/perl/perl-Sort-Versions"); }, qr/Resolving search[.]cpan[.]org/, 'check_distfiles output good'); - is($$symlinks[0], "$repo_path/perl/perl-Sort-Versions/Sort-Versions-1.5.tar.gz", - 'check_distfiles test 01'); + SKIP: { + skip 1, "check_distfiles errored out." if defined $exit; + is($symlinks->[0], "$repo_path/perl/perl-Sort-Versions/Sort-Versions-1.5.tar.gz", + 'check_distfiles test 01'); + } } # 3-4: get_distfile tests |