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

(-)a/t/Koha_Circulation_Issue.t (-1 / +20 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
use strict;
3
use warnings;
4
5
use Test::More tests => 4;
6
7
use_ok('Koha::Circulation::Issue');
8
9
my $issue;
10
my $context;
11
my $borrower = {'borrowernumber' => 1 };
12
ok ($issue = Koha::Circulation::Issue->new({'context' => $context, 'borrower' => $borrower}), 'Create issue object');
13
14
is ($issue->get_borrower->{'borrowernumber'}, 1, 'Testing get_borrower');
15
$borrower->{'borrowernumber'} = 2;
16
$issue->set_borrower($borrower);
17
is ($issue->get_borrower->{'borrowernumber'}, 2, 'Testing set_borrower');
18
19
20

Return to bug 6431