@@ -1,5 +1,12 @@
Revision history for Perl extension ExtUtils::Depends.
+0.401 Sat Aug 23 14:20:11 IRKT 2014
+ - Add README changes created by 'make dist' from the POD
+ - Rename test modules
+ - Test old/new schemes with .pm files
+ - Move old/new scheme tests from middle of other stuff to end
+ - Rename test packages to 8.3 unique
+
0.400 Sun Aug 10 13:58:24 CEST 2014
- In addition to the package variables $inc, $libs and @typemaps, write an
'Inline' method to <package>::Install::Files for easier interoperability
@@ -3,6 +3,8 @@ lib/ExtUtils/Depends.pm
Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
+MYMETA.json
+MYMETA.yml
perl-ExtUtils-Depends.spec.in
README
t/01_load.t
@@ -73,5 +73,5 @@
},
"x_MailingList" : "https://mail.gnome.org/mailman/listinfo/gtk-perl-list"
},
- "version" : "0.400"
+ "version" : "0.401"
}
@@ -38,4 +38,4 @@ resources:
homepage: http://gtk2-perl.sourceforge.net
license: http://dev.perl.org/licenses/
repository: git://git.gnome.org/perl-ExtUtils-Depends
-version: '0.400'
+version: '0.401'
@@ -0,0 +1,77 @@
+{
+ "abstract" : "unknown",
+ "author" : [
+ "Gtk2-Perl Team <gtk-perl-list at gnome dot org>"
+ ],
+ "dynamic_config" : 0,
+ "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141520",
+ "keywords" : [
+ "XS",
+ "XS extensions",
+ "dependency"
+ ],
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "ExtUtils-Depends",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ],
+ "package" : [
+ "ExtUtils::MM"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0",
+ "Test::More" : "0.88"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "Data::Dumper" : "0",
+ "ExtUtils::MakeMaker" : "0",
+ "File::Spec" : "0",
+ "IO::File" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Data::Dumper" : "0",
+ "File::Spec" : "0",
+ "IO::File" : "0",
+ "perl" : "5.006"
+ }
+ },
+ "test" : {
+ "recommends" : {
+ "Test::Number::Delta" : "1"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "bugtracker" : {
+ "mailto" : "bug-ExtUtils-Depends [at] rt.cpan.org",
+ "web" : "http://rt.cpan.org/Public/Dist/Display.html?Name=ExtUtils-Depends"
+ },
+ "homepage" : "http://gtk2-perl.sourceforge.net",
+ "license" : [
+ "http://dev.perl.org/licenses/"
+ ],
+ "repository" : {
+ "type" : "git",
+ "url" : "git://git.gnome.org/perl-ExtUtils-Depends",
+ "web" : "http://git.gnome.org/browse/perl-ExtUtils-Depends"
+ },
+ "x_MailingList" : "https://mail.gnome.org/mailman/listinfo/gtk-perl-list"
+ },
+ "version" : "0.401"
+}
@@ -0,0 +1,41 @@
+---
+abstract: unknown
+author:
+ - 'Gtk2-Perl Team <gtk-perl-list at gnome dot org>'
+build_requires:
+ ExtUtils::MakeMaker: '0'
+ Test::More: '0.88'
+configure_requires:
+ Data::Dumper: '0'
+ ExtUtils::MakeMaker: '0'
+ File::Spec: '0'
+ IO::File: '0'
+dynamic_config: 0
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141520'
+keywords:
+ - XS
+ - 'XS extensions'
+ - dependency
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: ExtUtils-Depends
+no_index:
+ directory:
+ - t
+ - inc
+ package:
+ - ExtUtils::MM
+requires:
+ Data::Dumper: '0'
+ File::Spec: '0'
+ IO::File: '0'
+ perl: '5.006'
+resources:
+ MailingList: https://mail.gnome.org/mailman/listinfo/gtk-perl-list
+ bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=ExtUtils-Depends
+ homepage: http://gtk2-perl.sourceforge.net
+ license: http://dev.perl.org/licenses/
+ repository: git://git.gnome.org/perl-ExtUtils-Depends
+version: '0.401'
@@ -12,7 +12,7 @@ use File::Find;
use File::Spec;
use Data::Dumper;
-our $VERSION = '0.400';
+our $VERSION = '0.401';
sub import {
my $class = shift;
@@ -7,6 +7,8 @@ use Test::More;
use FindBin;
use lib "$FindBin::Bin/lib";
use TestHelper;
+use File::Path 'mkpath';
+use File::Spec::Functions 'catdir';
use ExtUtils::Depends;
@@ -40,34 +42,6 @@ my @installed_files = qw(dep.h
dep-private.h);
$dep_info->install (@installed_files);
-my $INC_FRAG = '-Ddistinctive';
-map { make_fake($_) } qw(Fakenew Fakeold);
-sub Fakenew::Install::Files::Inline { +{ INC => $INC_FRAG } }
-sub Fakenew::Install::Files::deps { qw(Fakeold) }
-{
- no warnings 'once';
- @Fakeold::Install::Files::deps = qw(Fakenew);
- $Fakeold::Install::Files::inc = $INC_FRAG;
- $Fakeold::Install::Files::libs = '';
-}
-sub make_fake {
- my $class = shift . '::Install::Files';
- my @pieces = split '::', $class;
- require File::Spec;
- my $pm = join('/', @pieces) . '.pm';
- $INC{$pm} = File::Spec->catdir(qw(build fake), split '/', $pm);
-}
-sub test_load {
- my ($info, $msg) = @_;
- my $install_part = qr|Fake.*Install|;
- like ($info->{inc}, $install_part, "$msg inc generic");
- like ($info->{inc}, qr/$INC_FRAG/, "$msg inc specific");
- ok (scalar(grep { /Fake/ } @{$info->{deps}}), $msg);
- ok (exists $info->{libs}, $msg);
-}
-test_load (ExtUtils::Depends::load('Fakenew'), 'load new scheme');
-test_load (ExtUtils::Depends::load('Fakeold'), 'load old scheme');
-
use Data::Dumper;
$Data::Dumper::Terse = 1;
$dep_info->save_config (catfile $tmp_inc, qw(DepTest Install Files.pm));
@@ -148,4 +122,32 @@ is_deeply ([ DepTest::Install::Files->deps ], [], 'api check deps method');
# --------------------------------------------------------------------------- #
+my $INC_FRAG = '-Ddistinctive';
+make_test_pkg('PSnew', <<EOF);
+sub Inline { +{ INC => '$INC_FRAG' } }
+sub deps { qw(PSold) }
+EOF
+make_test_pkg('PSold', "\@deps = qw(PSnew); \$inc = '$INC_FRAG';");
+sub make_test_pkg {
+ my ($base, $text) = @_;
+ my $dir = catdir($tmp_inc, $base, qw(Install));
+ mkpath($dir, 0, 0711);
+ local *FH;
+ open FH, '>', catfile($dir, 'Files.pm');
+ print FH sprintf "package %s;\n%s\n1;\n", $base . '::Install::Files', $text;
+ close FH;
+}
+sub test_load {
+ my ($info, $msg) = @_;
+ my $install_part = qr|PS.*Install|;
+ like ($info->{inc}, $install_part, "$msg inc generic");
+ like ($info->{inc}, qr/$INC_FRAG/, "$msg inc specific");
+ ok (scalar(grep { /PS/ } @{$info->{deps}}), $msg);
+ ok (exists $info->{libs}, $msg);
+}
+test_load (ExtUtils::Depends::load('PSnew'), 'load new scheme');
+test_load (ExtUtils::Depends::load('PSold'), 'load old scheme');
+
+# --------------------------------------------------------------------------- #
+
done_testing;