__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
#!perl -T
use strict;
use warnings;
use Test::More tests => 2;
BEGIN {
use_ok( "Test::Pod" );
}
my @expected;
if ( $^O eq "VMS" ) {
@expected = (
File::Spec->catfile( 'lib', 'Test', 'Pod.pm' ),
File::Spec->catfile( 't', 'pod', 'good-pod-script.' ),
File::Spec->catfile( 't', 'pod', 'good-pod-script.bat' ),
File::Spec->catfile( 't', 'pod', 'good.pod' ),
File::Spec->catfile( 't', 'pod', 'no_pod.pod' ),
);
}
else {
# The expected files have slashes, not File::Spec separators, because
# that's how File::Find does it.
@expected = qw(
lib/Test/Pod.pm
t/pod/good-pod-script
t/pod/good-pod-script.bat
t/pod/good.pod
t/pod/no_pod.pod
);
}
my @files = sort map { lc } all_pod_files( "lib", "t/pod" );
@expected = sort map { lc } @expected;
s{\\}{/}g for @files, @expected;
is_deeply( \@files, \@expected, "Got all the distro files" );
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| pod | Folder | 0700 |
|
|
| 00-load.t | File | 246 B | 0644 |
|
| all_pod_files.t | File | 942 B | 0644 |
|
| cut-outside-block.pod | File | 151 B | 0644 |
|
| cut-outside-block.t | File | 402 B | 0644 |
|
| empty-file.pod | File | 0 B | 0644 |
|
| good.t | File | 461 B | 0644 |
|
| item-ordering.pod | File | 412 B | 0644 |
|
| item-ordering.t | File | 1.3 KB | 0644 |
|
| load.t | File | 101 B | 0644 |
|
| missing-file.t | File | 624 B | 0644 |
|
| selftest.t | File | 176 B | 0644 |
|
| spaced-directives.pod | File | 367 B | 0644 |
|
| spaced-directives.t | File | 674 B | 0644 |
|
| unknown-directive.pod | File | 349 B | 0644 |
|
| unknown-directive.t | File | 491 B | 0644 |
|