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

(-)a/t/db_dependent/Koha/Account/Lines.t (-1 / +65 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# Copyright 2018 Koha Development team
4
#
5
# This file is part of Koha
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>
19
20
use Modern::Perl;
21
22
use Test::More tests => 1;
23
24
use Koha::Account::Lines;
25
use Koha::Items;
26
27
use t::lib::TestBuilder;
28
29
my $schema = Koha::Database->new->schema;
30
$schema->storage->txn_begin;
31
32
my $builder = t::lib::TestBuilder->new;
33
34
subtest 'item' => sub {
35
        plan tests => 2;
36
37
        my $library = $builder->build( { source => 'Branch' } );
38
        my $biblioitem = $builder->build( { source => 'Biblioitem' } );
39
        my $patron = $builder->build( { source => 'Borrower' } );
40
        my $item = Koha::Item->new(
41
        {
42
            biblionumber     => $biblioitem->{biblionumber},
43
            biblioitemnumber => $biblioitem->{biblioitemnumber},
44
            homebranch       => $library->{branchcode},
45
            holdingbranch    => $library->{branchcode},
46
            barcode          => 'some_barcode_12',
47
            itype            => 'BK',
48
        })->store;
49
50
        my $line = Koha::Account::Line->new(
51
        {
52
            borrowernumber => $patron->{borrowernumber},
53
            itemnumber     => $item->itemnumber,
54
            accounttype    => "F",
55
            amount         => 10,
56
        })->store;
57
58
        my $account_line_item = $line->item;
59
        is( ref( $account_line_item ), 'Koha::Item', 'Koha::Account::Line->item should return a Koha::Item' );
60
        is( $line->itemnumber, $account_line_item->itemnumber, 'Koha::Account::Line->item should return the correct item' );
61
};
62
63
$schema->storage->txn_rollback;
64
65
1;

Return to bug 12001