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
|
use strict;
use warnings;
use Test::More 0.94 tests => 2;
use File::Temp qw(tempdir);
diag 'This test can take 2-6 seconds, please wait. Started at ' . localtime;
my @expected = do { open my $fh, '<', 't/callback_data.txt'; <$fh> };
@expected = sort @expected;
subtest direct => sub {
my @out = sort qx{$^X -Ilib examples/callback_data.pl};
is_deeply \@out, \@expected, 'callback_data worked' or diag explain @out;
};
subtest tempdir => sub {
my $dir = tempdir( CLEANUP => 1 );
my $tempdir = "$dir/abc";
mkdir $tempdir;
my @out = sort qx{$^X -Ilib examples/callback_data.pl $tempdir};
is_deeply \@out, \@expected, 'callback_data worked' or diag explain @out;
ok -d $tempdir, 'tempdir was left there';
};
|
