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
62
63
64
65
66
67
|
use strict;
use warnings;
package Test::SubExporter::Faux;
use base qw(Exporter);
our @EXPORT = qw(faux_installer exports_ok everything_ok);
sub faux_installer {
my ($verbose) = @_;
$verbose = 1;
my @exported;
my $reset = sub { @exported = () };
my $generator = sub {
my ($arg) = @_;
# my ($class, $name, $generator) = @$arg{qw(class name generator)};
return $arg;
};
my $installer = sub {
my ($arg, $to_export) = @_;
for (my $i = 0; $i < @$to_export; $i += 2) {
my ($as, $gen_arg) = @$to_export[ $i, $i+1 ];
# my ($class, $generator, $name, $arg, $collection, $as, $into) = @_;
my $everything = {
class => $gen_arg->{class},
generator => $gen_arg->{generator},
name => $gen_arg->{name},
arg => $gen_arg->{arg},
collection => $gen_arg->{col},
as => $as,
into => $arg->{into},
};
push @exported, [
$gen_arg->{name},
($verbose ? $everything : $gen_arg->{arg}),
];
}
};
return ($generator, $installer, $reset, \@exported);
}
sub exports_ok {
my ($got, $expected, $comment) = @_;
my $got_simple = [ map { [ $_->[0], $_->[1]{arg} ] } @$got ];
my @g = sort { ($a->[0] cmp $b->[0]) || ($a->[1] <=> $b->[1]) } @$got_simple;
my @e = sort { ($a->[0] cmp $b->[0]) || ($a->[1] <=> $b->[1]) } @$expected;
main::is_deeply(\@e, \@g, $comment);
}
sub everything_ok {
my ($got, $expected, $comment) = @_;
my @g = sort { ($a->[0] cmp $b->[0]) || ($a->[1] <=> $b->[1]) } @$got;
my @e = sort { ($a->[0] cmp $b->[0]) || ($a->[1] <=> $b->[1]) } @$expected;
main::is_deeply(\@e, \@g, $comment);
}
1;
|
