One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/Test-Pod-1.52-0/t/

View File Name : all_pod_files.t

#!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" );