The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

RUBATTEL / DBIx-Class-LookupColumn-0.01-TRIAL / t / 08-lookupDetectionCustomized.t 

            

              
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

              
use Test::More;
use Test::Exception;
use strict;
use warnings;
use Data::Dumper;
use lib qw(t/lib);
use DDP;
use Test::DBIx::Class -config_path => [[qw/t etc schema /], [qw/t etc schemaLkpDetection schema_class/]], 'User', 'PermissionType', 'DepartmentType', 'StudyType';
my $schema = Schema();
isa_ok Schema, 'SchemaLkpDetection'
  => 'Got Correct Schema';
  
fixtures_ok 'core4', "loading core fixtures from file";
fixtures_ok 'core2', "loading core fixtures from file";
fixtures_ok 'core3', "loading core fixtures from file";
fixtures_ok 'core5', "loading core fixtures from file";
my $result = 'SchemaLkpDetection';
use_ok($result, "package $result can be used");
$result->load_components( qw/+DBIx::Class::LookupColumn::Auto/ );
my @tables = $schema->sources;
$result->add_lookups(
        targets => [ grep { ! /Type$/ } @tables ],
        lookups => [ grep {   /Type$/ } @tables ],
         
        options => {
                relation_name_builder => sub{
                        my ( $class, %args) = @_;
                         
                        $args{lookup} =~ /^(.+)Type$/;
                        lc( $1 );
                        },
                lookup_field_name => sub{
                        'name'; 
                }
        }
);
{ # what if we defined twice the lookup, names should clash
        throws_ok { 
                                        $result->add_lookups(
                                                targets => [ grep { ! /Type$/ } @tables ],
                                                lookups => [ grep {   /Type$/ } @tables ],
                                                 
                                                options => {
                                                        relation_name_builder => sub{
                                                                my ( $class, %args) = @_;
                                                                 
                                                                $args{lookup} =~ /^(.+)Type$/;
                                                                lc( $1 );
                                                                },
                                                        lookup_field_name => sub{
                                                                'name'; 
                                                        }
                                                }
                                        )
                                } qr/already defined/i, 'collision detected => dies';
}
my $flash = User->find( {first_name => 'Flash' } );
my $flash_perm_name = PermissionType->find( $flash->permission_type_id )->name;
my $flash_department_name = DepartmentType->find( $flash->department_type_id )->name; 
# with the lookup detection 
my $flash_perm_lookup = User->find( {first_name => 'Flash' } )->permission; 
ok( $flash_perm_name =~ $flash_perm_lookup, "add_lookups is now working $flash_perm_lookup"  );
# with the lookup detection 
my $flash_department_lookup = User->find( {first_name => 'Flash' } )->department; 
ok( $flash_department_lookup =~ $flash_department_name, "add_lookups is now working $flash_department_lookup"  );
done_testing;