[carton] 224/472: Add a test for version lock

[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 bba70e8c2d1603fbf2a901fe368d380e41b0adbf
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Fri May 31 08:55:18 2013 +0900

    Add a test for version lock
---
 xt/cli/freeze.t | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/xt/cli/freeze.t b/xt/cli/freeze.t
new file mode 100644
index 0000000..3f99163
--- /dev/null
+++ b/xt/cli/freeze.t
@@ -0,0 +1,26 @@
+use strict;
+use Test::More;
+use xt::CLI;
+
+use File::Path qw(rmtree);
+
+{
+    my $app = cli();
+
+    $app->dir->touch("cpanfile", <<EOF);
+requires 'Try::Tiny', '== 0.11';
+EOF
+
+    $app->run("install");
+    $app->run("list");
+    like $app->output, qr/Try-Tiny-0\.11/;
+
+    rmtree($app->dir . "/local", 1);
+
+    $app->run("install");
+    $app->run("list");
+    like $app->output, qr/Try-Tiny-0\.11/;
+}
+
+done_testing;
+

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