From 44f258aef7501e18bff983c60540ca4017c2bfb9 Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Tue, 31 May 2011 14:05:02 +1200 Subject: [PATCH] Bug 6431 Tests for new modules http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=6431 --- t/Koha_Circulation_Issue.t | 20 ++++++++++++++++++++ 1 files changed, 20 insertions(+), 0 deletions(-) create mode 100755 t/Koha_Circulation_Issue.t diff --git a/t/Koha_Circulation_Issue.t b/t/Koha_Circulation_Issue.t new file mode 100755 index 0000000..c201373 --- /dev/null +++ b/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'); + + + -- 1.7.4.1