f36b8fd59a
You can test getnextacctno like: perl -e 'use C4::Accounts; print getnextacctno(33), "\n";' where 33 is a borrowernumber out of the accountlines table. Get that number like: mysql> select borrowernumber,accountno from accountlines LIMIT 100; Signed-off-by: Joshua Ferraro <jmf@liblime.com>
30 lines
662 B
Perl
30 lines
662 B
Perl
package KohaTest::Accounts;
|
|
use base qw( KohaTest );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use C4::Accounts;
|
|
sub testing_class { 'C4::Accounts' };
|
|
|
|
|
|
sub methods : Test( 1 ) {
|
|
my $self = shift;
|
|
my @methods = qw( recordpayment
|
|
makepayment
|
|
getnextacctno
|
|
returnlost
|
|
manualinvoice
|
|
fixcredit
|
|
refund
|
|
getcharges
|
|
getcredits
|
|
getrefunds
|
|
); # removed fixaccounts (unused by codebase)
|
|
|
|
can_ok( $self->testing_class, @methods );
|
|
}
|
|
|
|
1;
|