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
|
use Test::More 0.96;
use Test::Snapshot;
use File::Temp qw/ tempfile tempdir /;
use Capture::Tiny qw(capture);
use App::Prove;
sub tempcopy {
my ($text, $dir) = @_;
my ($tfh, $filename) = tempfile( DIR => $dir );
print $tfh $text;
close $tfh;
$filename;
}
$ENV{TEST_SNAPSHOT_UPDATE} = 0; # override to ensure known value
my $dir = tempdir( CLEANUP => 1 );
my $filename = tempcopy(<<'EOF', $dir);
use Test::More 0.96;
use Test::Snapshot;
is_deeply_snapshot undef, 'desc';
done_testing;
EOF
sub do_test {
my ($filename, $update, $expect, $description) = @_;
my ($out, $err, $exit) = capture {
local $ENV{TEST_SNAPSHOT_UPDATE} = $update;
my $app = App::Prove->new;
$app->process_args(qw(-b), $filename);
$app->run ? 0 : 1;
};
is $exit, $expect, $description
or diag 'Output was: ', $out, 'Error was: ', $err;
}
do_test($filename, '', 0, 'no snapshot = undef');
done_testing;
|
