From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

YAPPO / Module-Install-ReadmePodFromPod-0.01 / t / 01_dist.t 

            

              
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

              
# copied from Module::Install::ReadmeFromPod
use strict;
use warnings;
use Test::More; #tests => 1;
use File::Path      qw[rmtree];
use Capture::Tiny   qw[capture_merged];
use Config;
# Cleanup 
eval { rmtree('dist') };
unless ( -e 'have_make' ) {
  plan skip_all => 'No network tests';
}
plan tests => 3;
my $make = $Config{make};
mkdir 'dist' or die "$!\n";
chdir 'dist' or die "$!\n";
open READMEPM , '>README.pm' or die "$!\n";
print READMEPM <<README;
=head1 NAME
Foo::Bar - Putting the Foo into Bar
=head1 DESCRIPTION 
It is like chocolate, but not.
=cut
README
close READMEPM;
open MFPL, '>Makefile.PL' or die "$!\n";
print MFPL <<EOF;
use strict;
use inc::Module::Install;
name 'Foo-Bar';
version '0.01';
author 'Foo Bar';
abstract 'This module does something';
license 'perl';
readme_pod_from 'README.pm';
WriteAll;
EOF
close MFPL;
my $merged = capture_merged { system "$^X Makefile.PL" };
diag("$merged");
# Copied /usr/lib/perl5/site_perl/5.8.8/Devel/CheckOS.pm to
#        inc/Devel/CheckOS.pm
# Copied /usr/lib/perl5/site_perl/5.8.8/Devel/AssertOS.pm to
#        inc/Devel/AssertOS.pm
# Copied /usr/lib/perl5/site_perl/5.8.8/Devel/AssertOS/NetBSD.pm to
#        inc/Devel/AssertOS/NetBSD.pm
my @tests = (
'inc/Module/Install/ReadmePodFromPod.pm',
);
ok( -e $_, "Exists: '$_'" ) for @tests;
ok( -e 'README.pod', 'There is a README.pod file' );
my $distclean = capture_merged { system "$make distclean" };
diag("$distclean");
ok( -e 'README.pod', 'There is a README.pod file' );
exit 0;