@@ -, +, @@ --- t/Koha_Circulation_Issue.t | 20 ++++++++++++++++++++ 1 files changed, 20 insertions(+), 0 deletions(-) create mode 100755 t/Koha_Circulation_Issue.t --- a/t/Koha_Circulation_Issue.t +++ a/t/Koha_Circulation_Issue.t @@ -0,0 +1,20 @@ +#!/usr/bin/perl +use strict; +use warnings; + +use Test::More tests => 4; + +use_ok('Koha::Circulation::Issue'); + +my $issue; +my $context; +my $borrower = {'borrowernumber' => 1 }; +ok ($issue = Koha::Circulation::Issue->new({'context' => $context, 'borrower' => $borrower}), 'Create issue object'); + +is ($issue->get_borrower->{'borrowernumber'}, 1, 'Testing get_borrower'); +$borrower->{'borrowernumber'} = 2; +$issue->set_borrower($borrower); +is ($issue->get_borrower->{'borrowernumber'}, 2, 'Testing set_borrower'); + + + --