__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ 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::Builder::Tester tests => 3;
use Test::More;
BEGIN {
use_ok( 'Test::Pod' );
}
MISSING_FILE: {
my $file = 't/non-existent.pod';
test_out( "not ok 1 - I hope the file is there" );
test_fail(+1);
pod_file_ok( $file, "I hope the file is there" );
test_diag( "$file does not exist" );
test_test( "$file is bad" );
}
MISSING_FILE_NO_MESSAGE: {
my $file = 't/non-existent.pod';
test_out( "not ok 1 - POD test for $file" );
test_fail(+1);
pod_file_ok( $file );
test_diag( "$file does not exist" );
test_test( "$file is bad" );
}
| 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 |
|