View | Details | Raw Unified | Return to bug 21766
Collapse All | Expand All

(-)a/t/db_dependent/api/v1/illrequests.t (-10 / +27 lines)
Lines 19-24 use Modern::Perl; Link Here
19
19
20
use Test::More tests => 1;
20
use Test::More tests => 1;
21
use Test::MockModule;
21
use Test::MockModule;
22
use Test::MockObject;
22
use Test::Mojo;
23
use Test::Mojo;
23
use Test::Warn;
24
use Test::Warn;
24
25
Lines 40-50 subtest 'list() tests' => sub { Link Here
40
41
41
    plan tests => 18;
42
    plan tests => 18;
42
43
44
    # Mock ILLBackend (as object)
45
    my $backend = Test::MockObject->new;
46
    $backend->set_isa('Koha::Illbackends::Mock');
47
    $backend->set_always('name', 'Mock');
48
    $backend->set_always('capabilities', sub { return 'bar'; } );
49
    $backend->mock(
50
        'metadata',
51
        sub {
52
            my ( $self, $rq ) = @_;
53
            return {
54
                ID => $rq->illrequest_id,
55
                Title => $rq->patron->borrowernumber
56
            }
57
        }
58
    );
59
60
    # Mock Koha::Illrequest::load_backend (to load Mocked Backend)
43
    my $illreqmodule = Test::MockModule->new('Koha::Illrequest');
61
    my $illreqmodule = Test::MockModule->new('Koha::Illrequest');
44
    # Mock ->capabilities
62
    $illreqmodule->mock( 'load_backend',
45
    $illreqmodule->mock( 'capabilities', sub { return 'capable'; } );
63
        sub { my $self = shift; $self->{_my_backend} = $backend; return $self }
46
    # Mock ->metadata
64
    );
47
    $illreqmodule->mock( 'metadata', sub { return 'metawhat?'; } );
48
65
49
    $schema->storage->txn_begin;
66
    $schema->storage->txn_begin;
50
67
Lines 67-73 subtest 'list() tests' => sub { Link Here
67
        {
84
        {
68
            class => 'Koha::Illrequests',
85
            class => 'Koha::Illrequests',
69
            value => {
86
            value => {
70
                backend        => 'FreeForm',
87
                backend        => 'Mock',
71
                branchcode     => $library->branchcode,
88
                branchcode     => $library->branchcode,
72
                borrowernumber => $patron->borrowernumber
89
                borrowernumber => $patron->borrowernumber
73
            }
90
            }
Lines 86-101 subtest 'list() tests' => sub { Link Here
86
    $tx->req->cookies( { name => 'CGISESSID', value => $session_id } );
103
    $tx->req->cookies( { name => 'CGISESSID', value => $session_id } );
87
    $tx->req->env( { REMOTE_ADDR => $remote_address } );
104
    $tx->req->env( { REMOTE_ADDR => $remote_address } );
88
    $t->request_ok($tx)->status_is(200)
105
    $t->request_ok($tx)->status_is(200)
89
        ->json_has( '/0/patron', $patron->unblessed )
106
        ->json_has( '/0/patron', 'patron embedded' )
90
        ->json_has( '/0/capabilities', 'capable' )
107
        ->json_has( '/0/capabilities', 'capabilities embedded' )
91
        ->json_has( '/0/library', $library->unblessed  )
108
        ->json_has( '/0/library', 'library embedded'  )
92
        ->json_has( '/0/metadata', 'metawhat?'  );
109
        ->json_has( '/0/metadata', 'metadata embedded'  );
93
110
94
    # Create another ILL request
111
    # Create another ILL request
95
    my $illrequest2 = $builder->build_object(
112
    my $illrequest2 = $builder->build_object(
96
        {
113
        {
97
            class => 'Koha::Illrequests',
114
            class => 'Koha::Illrequests',
98
            value => {
115
            value => {
116
                backend        => 'Mock',
99
                branchcode     => $library->branchcode,
117
                branchcode     => $library->branchcode,
100
                borrowernumber => $patron->borrowernumber
118
                borrowernumber => $patron->borrowernumber
101
            }
119
            }
102
- 

Return to bug 21766