[carton] 380/472: Support version ranges in prereqs. Fix #117

[Lucas Kanashiro]

This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to branch master
in repository carton.

commit 4a2a4e19be4b64bc2437894131f99db71014e7a2
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Sun Aug 4 16:57:30 2013 -0700

    Support version ranges in prereqs. Fix #117
---
 lib/Carton/Snapshot/Parser.pm |  2 +-
 xt/cli/install.t              | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/lib/Carton/Snapshot/Parser.pm b/lib/Carton/Snapshot/Parser.pm
index 9a90ab3..23c3d52 100644
--- a/lib/Carton/Snapshot/Parser.pm
+++ b/lib/Carton/Snapshot/Parser.pm
@@ -68,7 +68,7 @@ my $machine = {
     ],
     properties => [
         {
-            re => qr/^\s{6}([0-9A-Za-z_:]+) (v?[0-9\._]+|undef)/,
+            re => qr/^\s{6}([0-9A-Za-z_:]+) ([v0-9\._,=\!<>\s]+|undef)/,
             code => sub {
                 my($stash, $snapshot, $module, $version) = @_;
 
diff --git a/xt/cli/install.t b/xt/cli/install.t
new file mode 100644
index 0000000..bc6b494
--- /dev/null
+++ b/xt/cli/install.t
@@ -0,0 +1,18 @@
+use strict;
+use Test::More;
+use xt::CLI;
+
+subtest 'carton install with version range' => sub {
+    my $app = cli();
+    $app->write_cpanfile(<<EOF);
+requires 'CPAN::Test::Dummy::Perl5::Deps::VersionRange';
+EOF
+
+    $app->run("install");
+    $app->run("tree");
+    like $app->stdout, qr/Try::Tiny/;
+    unlike $app->stderr, qr/Could not parse snapshot file/;
+};
+
+done_testing;
+

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git