1#!/usr/bin/perl 2# 3# Test Pod::Man behavior with various snippets. 4# 5# Copyright 2002, 2004, 2006, 2008, 2009, 2012, 2013, 2015, 2016 6# Russ Allbery <rra@cpan.org> 7# 8# This program is free software; you may redistribute it and/or modify it 9# under the same terms as Perl itself. 10 11use 5.006; 12use strict; 13use warnings; 14 15use lib 't/lib'; 16 17use Test::More tests => 93; 18use Test::Podlators qw(test_snippet); 19 20# Load the module. 21BEGIN { 22 use_ok('Pod::Man'); 23} 24 25# List of snippets run by this test. 26my @snippets = qw( 27 agrave backslash-man-ref bullet-after-nonbullet bullets c-in-header 28 c-in-name dollar-magic error-die error-none error-normal 29 error-pod error-stderr error-stderr-opt eth fixed-font fixed-font-in-item 30 for-blocks hyphen-in-s item-fonts link-quoting link-to-url long-quote 31 lquote-and-quote lquote-rquote markup-in-name multiline-x name-guesswork 32 nested-lists newlines-in-c non-ascii not-bullet not-numbers nourls 33 paired-quotes periods quote-escaping rquote-none small-caps-magic 34 soft-hyphens trailing-space true-false uppercase-license x-whitespace 35 x-whitespace-entry 36); 37 38# Run all the tests. 39for my $snippet (@snippets) { 40 test_snippet('Pod::Man', "man/$snippet"); 41} 42