1#!perl
2#===============================================================================
3#
4# t/pod_coverage.t
5#
6# DESCRIPTION
7#   Test script to check POD coverage.
8#
9# COPYRIGHT
10#   Copyright (C) 2015 Steve Hay.  All rights reserved.
11#
12# LICENCE
13#   This script is free software; you can redistribute it and/or modify it under
14#   the same terms as Perl itself, i.e. under the terms of either the GNU
15#   General Public License or the Artistic License, as specified in the LICENCE
16#   file.
17#
18#===============================================================================
19
20use 5.008001;
21
22use strict;
23use warnings;
24
25use Test::More;
26
27#===============================================================================
28# MAIN PROGRAM
29#===============================================================================
30
31MAIN: {
32    plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};
33
34    my $ok = eval {
35        require Test::Pod::Coverage;
36        Test::Pod::Coverage->import();
37        1;
38    };
39
40    if (not $ok) {
41        plan skip_all => 'Test::Pod::Coverage required to test POD coverage';
42    }
43    elsif ($Test::Pod::Coverage::VERSION < 0.08) {
44        plan skip_all => 'Test::Pod::Coverage 0.08 or higher required to test POD coverage';
45    }
46    else {
47        plan tests => 1;
48        pod_coverage_ok('PerlIO::via::QuotedPrint', {
49            also_private => [qw(FILL PUSHED WRITE)]
50        });
51    }
52}
53
54#===============================================================================
55