File: pod.t

package info (click to toggle)
libmetacpan-client-perl 2.033000-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 552 kB
  • sloc: perl: 2,564; makefile: 6
file content (17 lines) | stat: -rw-r--r-- 317 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!perl

use strict;
use warnings;
use Test::More tests => 5;

use lib '.';
use t::lib::Functions;

my $mc = mcpan();
can_ok( $mc, 'pod' );

my $pod = $mc->pod('MetaCPAN::API');
isa_ok( $pod, 'MetaCPAN::Client::Pod' );
can_ok( $pod, qw<html x_pod x_markdown plain name> );
like( $pod->x_pod, qr/=head1/, 'got pod' );