[SCM] libcpan-meta-check-perl Debian packaging branch, master, updated. debian/0.004-1-39-g7d96c48

[Leon Timmermans]

The following commit has been merged in the master branch:
commit 1015b8f1a65d587e1e672dbc6d07eb9811a71512
Author: Leon Timmermans <fawaka at gmail.com>
Date:   Sun Apr 1 12:45:56 2012 +0200

    Add basic tests

diff --git a/Changes b/Changes
index af5cc1e..da159ee 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,4 @@
 Revision history for CPAN-Meta-Check
 
 {{$NEXT}}
-    -
+          Initial release
diff --git a/t/10-basics.t b/t/10-basics.t
new file mode 100644
index 0000000..58f615f
--- /dev/null
+++ b/t/10-basics.t
@@ -0,0 +1,43 @@
+#! perl
+
+use strict;
+use warnings;
+use Test::More 0.88;
+use Test::Differences;
+
+use CPAN::Meta;
+use CPAN::Meta::Check qw/check_requirements verify_dependencies/;
+
+my %prereq_struct = (
+	runtime => {
+		requires => {
+			'File::Spec' => 0,
+			'IO::File'	 => 0,
+			'perl'			 => '5.005_03',
+		},
+		recommends => {
+			'Pod::Text' => 0,
+			'This::Should::Be::NonExistent' => 1,
+			Carp => 99999,
+		},
+	},
+	build => {
+		requires => {
+			'Test' => 0,
+		},
+	},
+);
+
+my $meta = CPAN::Meta->create({ prereqs => \%prereq_struct, version => 1, name => 'Foo'  }, { lazy_validation => 1 });
+
+eq_or_diff([ verify_dependencies($meta, 'runtime', 'requires') ], [], 'Requirements are verified');
+
+my $pre_req = $meta->effective_prereqs->requirements_for('runtime', 'requires');
+is($pre_req->required_modules, 3, 'Requires 3 modules');
+eq_or_diff(check_requirements($pre_req, 'requires'), { map { ( $_ => undef ) } qw/File::Spec IO::File perl/ }, 'Requirements are satisfied ');
+
+my $pre_rec = $meta->effective_prereqs->requirements_for('runtime', 'recommends');
+eq_or_diff([ sort +$pre_rec->required_modules ], [ qw/Carp Pod::Text This::Should::Be::NonExistent/ ], 'The right recommendations are present');
+eq_or_diff(check_requirements($pre_rec, 'recommends'), { Carp => "Installed version ($Carp::VERSION) of Carp is not in range '99999'", 'Pod::Text' => undef, 'This::Should::Be::NonExistent' => 'Module \'This::Should::Be::NonExistent\' is not installed' }, 'Recommendations give the right errors');
+
+done_testing();

-- 
libcpan-meta-check-perl Debian packaging