File: 03_pod_no404s.t

package info (click to toggle)
libpoe-perl 2%3A1.3670-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 2,000 kB
  • ctags: 1,416
  • sloc: perl: 22,865; makefile: 9
file content (26 lines) | stat: -rw-r--r-- 501 bytes parent folder | download | duplicates (2)
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
#!/usr/bin/perl -w
# vim: ts=2 sw=2 filetype=perl expandtab

# Tests POD for 404 links

use strict;
use Test::More;

BEGIN {
  unless (-f 'run_network_tests') {
    plan skip_all => 'Need network access (and permission) for these tests';
  }

  if ( $ENV{NO_NETWORK} ) {
    plan skip_all => 'enable by unsetting NO_NETWORK';
  }

  foreach my $req (qw(Test::Pod::No404s)) {
    eval "use $req";
    if ($@) {
      plan skip_all => "$req is needed for these tests.";
    }
  }
}

all_pod_files_ok();