1#!/usr/bin/perl 2# 3# Test Pod::Text::Overstrike with various snippets. 4# 5# Copyright 2002, 2004, 2006, 2009, 2012-2013, 2018-2019 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 => 5; 20use Test::Podlators qw(test_snippet); 21 22BEGIN { 23 use_ok('Pod::Text::Overstrike'); 24} 25 26# List of snippets run by this test. 27my @snippets = qw(tag-width wrapping); 28 29# Run all the tests. 30for my $snippet (@snippets) { 31 test_snippet('Pod::Text::Overstrike', "overstrike/$snippet"); 32} 33