From 8a6df501532668f71dd42a1f8c2652c1ace3bf7d Mon Sep 17 00:00:00 2001 From: P. J. McDermott Date: Thu, 05 Jan 2017 20:18:53 -0500 Subject: t/00_manifest.t: New file --- diff --git a/MANIFEST b/MANIFEST index d6833e6..90ca748 100644 --- a/MANIFEST +++ b/MANIFEST @@ -5,6 +5,7 @@ MANIFEST.SKIP Makefile.PL README lib/Math/Decimal/FastPP.pm +t/00_manifest.t t/01_compile.t t/10_dadd.t t/11_dmul.t diff --git a/t/00_manifest.t b/t/00_manifest.t new file mode 100644 index 0000000..e196a6d --- /dev/null +++ b/t/00_manifest.t @@ -0,0 +1,50 @@ +# t/00_manifest.t - Manifest tests +# +# Copyright (C) 2017 Patrick McDermott +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +use strict; +use warnings; + +use Test::More; +use ExtUtils::Manifest qw(fullcheck); + +my $missing; +my $extra; +my $file; + +unless ($ENV{"RELEASE_TESTING"}) { + plan("skip_all" => "Author tests not required for installation"); +} + +plan("tests" => 2); + +$ExtUtils::Manifest::Quiet = 1; + +($missing, $extra) = fullcheck(); + +is(@{$missing}, 0, "missing files check"); +if (@{$missing}) { + foreach $file (@{$missing}) { + diag("No such file: " . $file); + } +} + +is(@{$extra}, 0, "extra files check"); +if (@{$extra}) { + foreach $file (@{$extra}) { + diag("Not in " . $ExtUtils::Manifest::MANIFEST . ": " . $file); + } +} -- cgit v0.9.1