1#!/usr/bin/perl 2# 3# Test Pod::Text behavior with various snippets. 4# 5# Copyright 2002, 2004, 2006-2009, 2012, 2018-2020 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# 11# SPDX-License-Identifier: GPL-1.0-or-later OR Artistic-1.0-Perl 12 13use 5.008; 14use strict; 15use warnings; 16 17use lib 't/lib'; 18 19use Test::More tests => 53; 20use Test::Podlators qw(test_snippet); 21 22# Load the module. 23BEGIN { 24 use_ok('Pod::Text'); 25} 26 27# List of snippets run by this test. 28my @snippets = qw( 29 alt c-with-spaces code cpp empty error-die error-none error-normal error-pod 30 error-stderr error-stderr-opt for late-encoding link-rt link-url margin 31 nonbreaking-space nourls periods quotes-opt s-whitespace sentence-spacing 32 utf8 verbatim 33); 34 35# Run all the tests. 36for my $snippet (@snippets) { 37 test_snippet('Pod::Text', "text/$snippet"); 38} 39