1#!/usr/bin/perl 2# 3# Test Pod::Text behavior with various snippets. 4# 5# Copyright 2002, 2004, 2006-2009, 2012, 2018-2020, 2022 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 => 67; 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 30 error-pod error-stderr error-stderr-opt for guesswork-quoting 31 guesswork-no-quoting late-encoding link-rt link-url margin naive 32 name-quotes name-quotes-none non-latin nonbreaking-space 33 nonbreaking-space-l nourls periods quotes-opt s-whitespace 34 sentence-spacing utf8 verbatim 35); 36 37# Run all the tests. 38for my $snippet (@snippets) { 39 test_snippet('Pod::Text', "text/$snippet"); 40} 41