Commit | Line | Data |
91fe73bc |
1 | package ResultClassInflator; |
2 | |
3 | sub new { bless {}, __PACKAGE__ } |
4 | |
5 | 1; |
6 | |
7 | package main; |
8 | |
9 | use strict; |
10 | use warnings; |
11 | |
12 | use Test::More tests => 6; |
13 | use Test::Exception; |
14 | use lib qw(t/lib); |
15 | use DBICTest; |
16 | |
17 | my $schema = DBICTest->init_schema(); |
18 | |
19 | my $source = $schema->source('CD'); |
20 | |
21 | lives_ok { |
22 | $source->result_class('ResultClassInflator'); |
23 | is($source->result_class => 'ResultClassInflator', "result_class gives us back class"); |
24 | is($source->get_component_class('result_class') => 'ResultClassInflator', |
25 | "and so does get_component_class"); |
26 | |
27 | } 'Result class still works with class'; |
28 | lives_ok { |
29 | my $obj = ResultClassInflator->new(); |
30 | $source->result_class($obj); |
31 | is($source->result_class => $obj, "result_class gives us back obj"); |
32 | is($source->get_component_class('result_class') => $obj, "and so does get_component_class"); |
33 | } 'Result class works with object'; |
34 | |
35 | done_testing; |