1de8cc8edSafresh1#!/usr/bin/perl 2de8cc8edSafresh1# 3de8cc8edSafresh1# Test Pod::Text behavior with various snippets. 4de8cc8edSafresh1# 5*f2a19305Safresh1# Copyright 2002, 2004, 2006-2009, 2012, 2018-2020, 2022 6de8cc8edSafresh1# Russ Allbery <rra@cpan.org> 7de8cc8edSafresh1# 8de8cc8edSafresh1# This program is free software; you may redistribute it and/or modify it 9de8cc8edSafresh1# under the same terms as Perl itself. 10de8cc8edSafresh1# 11de8cc8edSafresh1# SPDX-License-Identifier: GPL-1.0-or-later OR Artistic-1.0-Perl 12de8cc8edSafresh1 13de8cc8edSafresh1use 5.008; 14de8cc8edSafresh1use strict; 15de8cc8edSafresh1use warnings; 16de8cc8edSafresh1 17de8cc8edSafresh1use lib 't/lib'; 18de8cc8edSafresh1 19*f2a19305Safresh1use Test::More tests => 67; 20de8cc8edSafresh1use Test::Podlators qw(test_snippet); 21de8cc8edSafresh1 22de8cc8edSafresh1# Load the module. 23de8cc8edSafresh1BEGIN { 24de8cc8edSafresh1 use_ok('Pod::Text'); 25de8cc8edSafresh1} 26de8cc8edSafresh1 27de8cc8edSafresh1# List of snippets run by this test. 28de8cc8edSafresh1my @snippets = qw( 29*f2a19305Safresh1 alt c-with-spaces code cpp empty error-die error-none error-normal 30*f2a19305Safresh1 error-pod error-stderr error-stderr-opt for guesswork-quoting 31*f2a19305Safresh1 guesswork-no-quoting late-encoding link-rt link-url margin naive 32*f2a19305Safresh1 name-quotes name-quotes-none non-latin nonbreaking-space 33*f2a19305Safresh1 nonbreaking-space-l nourls periods quotes-opt s-whitespace 34*f2a19305Safresh1 sentence-spacing utf8 verbatim 35de8cc8edSafresh1); 36de8cc8edSafresh1 37de8cc8edSafresh1# Run all the tests. 38de8cc8edSafresh1for my $snippet (@snippets) { 39de8cc8edSafresh1 test_snippet('Pod::Text', "text/$snippet"); 40de8cc8edSafresh1} 41