Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
data-fail	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
data-fixable	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
data-test	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
data-valid	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
converter-bad.t	2.64 KB	-r--r--r--	2014-12-27 11:48
converter-fail.t	1.08 KB	-r--r--r--	2014-12-27 11:48
converter.t	9.92 KB	-r--r--r--	2014-12-27 11:49
load-bad.t	775 B	-r--r--r--	2014-12-27 11:48
meta-obj.t	5.7 KB	-r--r--r--	2014-12-27 11:48
no-index.t	1.73 KB	-r--r--r--	2014-12-27 11:48
prereqs-finalize.t	2.17 KB	-r--r--r--	2014-12-27 11:48
prereqs-merge.t	1.94 KB	-r--r--r--	2014-12-27 11:48
prereqs.t	3.4 KB	-r--r--r--	2014-12-27 11:48
repository.t	4.3 KB	-r--r--r--	2014-12-27 11:48
save-load.t	3.13 KB	-r--r--r--	2014-12-27 11:48
strings.t	2.26 KB	-r--r--r--	2014-12-27 11:49
validator.t	1.07 KB	-r--r--r--	2014-12-27 11:48

Rename

use strict;
use warnings;
use Test::More 0.88;

sub dies_ok (&@) {
  my ($code, $qr, $comment) = @_;

my $lived = eval { $code->(); 1 };

if ($lived) {
    fail("$comment: did not die");
  } else {
    like($@, $qr, $comment);
  }
}

use CPAN::Meta::Requirements;

my $req = CPAN::Meta::Requirements->new;

# Test ==
$req->add_string_requirement('Foo::Bar', '== 1.3');
ok($req->accepts_module('Foo::Bar' => '1.3'), 'exact version (==)');
ok(!$req->accepts_module('Foo::Bar' => '1.2'), 'lower version (==)');
ok(!$req->accepts_module('Foo::Bar' => '1.4'), 'higher version (==)');

# Test !=
$req->add_string_requirement('Foo::Baz', '!= 1.3');
ok(!$req->accepts_module('Foo::Baz' => '1.3'), 'exact version (!=)');
ok($req->accepts_module('Foo::Baz' => '1.2'), 'lower version (!=)');
ok($req->accepts_module('Foo::Baz' => '1.4'), 'higher version (!=)');

# Test >=
$req->add_string_requirement('Foo::Gorch', '>= 1.3');
ok($req->accepts_module('Foo::Gorch' => '1.3'), 'exact version (>=)');
ok(!$req->accepts_module('Foo::Gorch' => '1.2'), 'lower version (>=)');
ok($req->accepts_module('Foo::Gorch' => '1.4'), 'higher version (>=)');

# Test <=
$req->add_string_requirement('Foo::Graz', '<= 1.3');
ok($req->accepts_module('Foo::Graz' => '1.3'), 'exact version (<=)');
ok($req->accepts_module('Foo::Graz' => '1.2'), 'lower version (<=)');
ok(!$req->accepts_module('Foo::Graz' => '1.4'), 'higher version (<=)');

# Test ""
$req->add_string_requirement('Foo::Blurb', '>= 1.3');
ok($req->accepts_module('Foo::Blurb' => '1.3'), 'exact version (>=)');
ok(!$req->accepts_module('Foo::Blurb' => '1.2'), 'lower version (>=)');
ok($req->accepts_module('Foo::Blurb' => '1.4'), 'higher version (>=)');

# Test multiple requirements
$req->add_string_requirement('A::Tribe::Called', '>= 1.3, <= 2.0, != 1.6');
ok($req->accepts_module('A::Tribe::Called' => '1.5'), 'middle version (>=, <=, !)');
ok(!$req->accepts_module('A::Tribe::Called' => '1.2'), 'lower version (>=, <=, !)');
ok(!$req->accepts_module('A::Tribe::Called' => '2.1'), 'higher version (>=, <=, !)');
ok(!$req->accepts_module('A::Tribe::Called' => '1.6'), 'excluded version (>=, <=, !)');

# Test fatal errors
dies_ok { $req->add_string_requirement('Foo::Bar', undef) }
  qr/No requirement string provided/,
  "die without a requirement string";

done_testing;