t/lib/KohaTest/Accounts.pm

   1 package KohaTest::Accounts;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Accounts;
  10 sub testing_class { 'C4::Accounts' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw( recordpayment
  16                       makepayment
  17                       getnextacctno
  18                       returnlost
  19                       manualinvoice
  20                       fixcredit
  21                       refund
  22                       getcharges
  23                       getcredits
  24                       getrefunds
  25                 );      # removed fixaccounts (unused by codebase)
  26
  27     can_ok( $self->testing_class, @methods );
  28 }
  29
  30 1;