From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CLACO / Mango-0.01000_08 / t / provider.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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113

              
#!perl -w
# $Id: /local/CPAN/Mango/t/provider.t 1187 2008-01-13T03:25:07.767826Z claco  $
use strict;
use warnings;
BEGIN {
    use lib 't/lib';
    use Mango::Test;
    eval 'require DBD::SQLite';
    if($@) {
        plan skip_all => 'DBD::SQLite not installed';
    } else {
        plan tests => 15;
    };
    use_ok('Mango::Provider');
    use_ok('Mango::Exception', ':try');
};
my $schema = Mango::Test->init_schema;
my $provider = Mango::Provider->new({
    result_class => 'Mango::Cart'
});
isa_ok($provider, 'Mango::Provider');
is($provider->result_class, 'Mango::Cart');
$provider->setup([
    result_class => 'Mango::Order'
]);
is($provider->result_class, 'Mango::Cart');
## create type not implemented
{
    try {
        local $ENV{'LANG'} = 'en';
        $provider->create;
        fail('no exception thrown');
    } catch Mango::Exception with {
        pass('Argument exception thrown');
        like(shift, qr/overriden/i, 'must be overriden');
    } otherwise {
        fail('Other exception thrown');
    };
};
## delete type not implemented
{
    try {
        local $ENV{'LANG'} = 'en';
        $provider->delete;
        fail('no exception thrown');
    } catch Mango::Exception with {
        pass('Argument exception thrown');
        like(shift, qr/overriden/i, 'must be overriden');
    } otherwise {
        fail('Other exception thrown');
    };
};
## search type not implemented
{
    try {
        local $ENV{'LANG'} = 'en';
        $provider->search;
        fail('no exception thrown');
    } catch Mango::Exception with {
        pass('Argument exception thrown');
        like(shift, qr/overriden/i, 'must be overriden');
    } otherwise {
        fail('Other exception thrown');
    };
};
## update type not implemented
{
    try {
        local $ENV{'LANG'} = 'en';
        $provider->update;
        fail('no exception thrown');
    } catch Mango::Exception with {
        pass('Argument exception thrown');
        like(shift, qr/overriden/i, 'must be overriden');
    } otherwise {
        fail('Other exception thrown');
    };
};
## set_component_class goes boom if class can't be loaded
{
    try {
        local $ENV{'LANG'} = 'en';
        $provider->result_class('Foo');
        fail('no exception thrown');
    } catch Mango::Exception with {
        pass('Argument exception thrown');
        like(shift, qr/loaded/i, 'class cant be loaded');
    } otherwise {
        fail('Other exception thrown');
    };
};