1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl
#
# Test Pod::Thread behavior with various snippets.
#
# Copyright 2009, 2013, 2021 Russ Allbery <rra@cpan.org>
#
# SPDX-License-Identifier: MIT
use 5.012;
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use Test::Snippets qw(list_snippets test_snippet);
# Determine the number of tests and test that the module loads. We run one
# snippet that has an error and an exception, adding two extra tests.
BEGIN {
plan tests => scalar(list_snippets()) * 2 + 2 + 1;
use_ok('Pod::Thread');
}
# Run all of the tests.
for my $snippet (list_snippets()) {
test_snippet('Pod::Thread', $snippet);
}
|
