1 files changed, 25 insertions, 0 deletions
diff --git a/xt/cli/subdir.t b/xt/cli/subdir.t
new file mode 100644
index 0000000..84d244f
--- /dev/null
+++ b/xt/cli/subdir.t
@@ -0,0 +1,25 @@
+use strict;
+use Test::More;
+use xt::CLI;
+
+subtest 'carton exec in subdir', sub {
+    my $app = cli();
+    $app->write_cpanfile(<<EOF);
+requires 'Try::Tiny';
+EOF
+    $app->run('install');
+
+    $app->dir->child('x')->mkpath;
+
+    $app->run_in_dir('x' => 'list');
+    like $app->stdout, qr/Try-Tiny/;
+
+    $app->run_in_dir('x' => 'check');
+    like $app->stdout, qr/are satisfied/;
+
+    $app->run_in_dir('x' => 'install');
+    like $app->stdout, qr/Complete/;
+    unlike $app->stderr, qr/failed/;
+};
+
+done_testing;