SWAMPy

✎ CARVE FLESH

EDITING: 000-report-versions-tiny.t

use strict;
use warnings;
use Test::More 0.88;
# This is a relatively nice way to avoid Test::NoWarnings breaking our
# expectations by adding extra tests, without using no_plan.  It also helps
# avoid any other test module that feels introducing random tests, or even
# test plans, is a nice idea.
our $success = 0;
END { $success && done_testing; }

# List our own version used to generate this
my $v = "\nGenerated by Dist::Zilla::Plugin::ReportVersions::Tiny v1.10\n";

eval {                     # no excuses!
    # report our Perl details
    my $want = '5.006';
    $v .= "perl: $] (wanted $want) on $^O from $^X\n\n";
};
defined($@) and diag("$@");

# Now, our module version dependencies:
sub pmver {
    my ($module, $wanted) = @_;
    $wanted = " (want $wanted)";
    my $pmver;
    eval "require $module;";
    if ($@) {
        if ($@ =~ m/Can't locate .* in \@INC/) {
            $pmver = 'module not found.';
        } else {
            diag("${module}: $@");
            $pmver = 'died during require.';
        }
    } else {
        my $version;
        eval { $version = $module->VERSION; };
        if ($@) {
            diag("${module}: $@");
            $pmver = 'died during VERSION check.';
        } elsif (defined $version) {
            $pmver = "$version";
        } else {
            $pmver = '<undef>';
        }
    }

# So, we should be good, right?
    return sprintf('%-45s => %-10s%-15s%s', $module, $pmver, $wanted, "\n");
}

eval { $v .= pmver('Carp','any version') };
eval { $v .= pmver('Data::OptList','0.100') };
eval { $v .= pmver('Exporter','any version') };
eval { $v .= pmver('ExtUtils::MakeMaker','6.30') };
eval { $v .= pmver('File::Spec','any version') };
eval { $v .= pmver('IO::Handle','any version') };
eval { $v .= pmver('IPC::Open3','any version') };
eval { $v .= pmver('Params::Util','0.14') };
eval { $v .= pmver('Sub::Install','0.92') };
eval { $v .= pmver('Test::More','0.96') };
eval { $v .= pmver('base','any version') };
eval { $v .= pmver('lib','any version') };
eval { $v .= pmver('overload','any version') };
eval { $v .= pmver('strict','any version') };
eval { $v .= pmver('subs','any version') };
eval { $v .= pmver('warnings','any version') };

# All done.
$v .= <<'EOT';

Thanks for using my code.  I hope it works for you.
If not, please try and include this output in the bug report.
That will help me reproduce the issue and solve your problem.

EOT

diag($v);
ok(1, "we really didn't test anything, just reporting data");
$success = 1;

# Work around another nasty module on CPAN. :/
no warnings 'once';
$Template::Test::NO_FLUSH = 1;
exit 0;

CANCEL

Name	Type	Size	Modified	Actions
↩ ..	DIR	—	—
📁 lib/	DIR	—	2024-07-31 11:31
📄 00-compile.t	T	987 B	2013-10-18 15:10	EDIT
📄 000-report-versions-tiny.t	T	2.6 KB	2013-10-18 15:10	EDIT
📄 col-init.t	T	1.1 KB	2019-10-13 12:14	EDIT
📄 collection.t	T	2.8 KB	2019-10-13 12:14	EDIT
📄 expand-group.t	T	5.3 KB	2019-10-13 12:14	EDIT
📄 faux-export.t	T	3 KB	2019-10-13 12:14	EDIT
📄 gen-callable.t	T	574 B	2019-10-13 12:14	EDIT
📄 group-generator.t	T	3.7 KB	2019-10-13 12:14	EDIT
📄 inherited.t	T	613 B	2019-10-13 12:14	EDIT
📄 into-level.t	T	3.1 KB	2019-10-13 12:14	EDIT
📄 real-export-groupgen.t	T	1.9 KB	2019-10-13 12:14	EDIT
📄 real-export-href.t	T	4.1 KB	2019-10-13 12:14	EDIT
📄 real-export-setup.t	T	3.6 KB	2019-10-13 12:14	EDIT
📄 util-curry.t	T	1.7 KB	2019-10-13 12:14	EDIT
📄 util-currychain.t	T	1.7 KB	2019-10-13 12:14	EDIT
📄 util-like.t	T	3 KB	2019-10-13 12:14	EDIT
📄 util-merge.t	T	1.7 KB	2019-10-13 12:14	EDIT
📄 util-mixin.t	T	2.7 KB	2019-10-13 12:14	EDIT
📄 util-namemap.t	T	568 B	2019-10-13 12:14	EDIT
📄 valid-config.t	T	1.3 KB	2019-10-13 12:14	EDIT