diff options
Diffstat (limited to 'xt/cli/exec.t')
-rw-r--r-- | xt/cli/exec.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/xt/cli/exec.t b/xt/cli/exec.t index 40b1055..72fe864 100644 --- a/xt/cli/exec.t +++ b/xt/cli/exec.t @@ -11,8 +11,16 @@ subtest 'carton exec without a command', sub { is $app->exit_code, 255; }; +subtest 'exec without cpanfile', sub { + my $app = cli(); + $app->run("exec", "perl", "-e", 1); + like $app->stderr, qr/Can't locate cpanfile/; + is $app->exit_code, 255; +}; + subtest 'exec without a lock', sub { my $app = cli(); + $app->write_cpanfile(); $app->run("exec", "perl", "-e", 1); like $app->stderr, qr/carton\.lock/; is $app->exit_code, 255; |