blob: 93d50c818acb59d37e890accabf79b06ef44962f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
package xt::CLI;
use strict;
use base qw(Exporter);
our @EXPORT = qw(run cli);
use Test::Requires qw( Capture::Tiny File::pushd );
sub cli {
my $cli = Carton::CLI::Tested->new;
$cli->dir( Path::Tiny->tempdir(CLEANUP => !$ENV{NO_CLEANUP}) );
warn "Temp directory: ", $cli->dir, "\n" if $ENV{NO_CLEANUP};
$cli;
}
package Carton::CLI::Tested;
use Carton::CLI;
use Capture::Tiny qw(capture);
use File::pushd ();
use Path::Tiny;
$Carton::CLI::UseSystem = 1;
use Class::Tiny qw( dir stdout stderr exit_code );
sub write_file {
my($self, $file, @args) = @_;
$self->dir->child($file)->spew(@args);
}
sub write_cpanfile {
my($self, @args) = @_;
$self->write_file(cpanfile => @args);
}
sub run_in_dir {
my($self, $dir, @args) = @_;
local $self->{dir} = $self->dir->child($dir);
$self->run(@args);
}
sub run {
my($self, @args) = @_;
my $pushd = File::pushd::pushd $self->dir;
my @capture = capture {
my $code = eval { Carton::CLI->new->run(@args) };
$self->exit_code($@ ? 255 : $code);
};
$self->stdout($capture[0]);
$self->stderr($capture[1]);
}
sub clean_local {
my $self = shift;
$self->dir->child("local")->remove_tree({ safe => 0 });
}
1;
|