t/db_dependent/lib/KohaTest/Circulation/GetUpcomingDueIssues.pm

   1 package KohaTest::Circulation::GetUpcomingDueIssues;
   2 use base qw(KohaTest::Circulation);
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 =head2 basic_usage
  10
  11 basic usage of C4::Circulation::GetUpcomingDueIssues()
  12
  13 =cut
  14
  15 sub basic_usage : Test(2) {
  16     my $self = shift;
  17
  18     my $upcoming = C4::Circulation::GetUpcomingDueIssues();
  19     isa_ok( $upcoming, 'ARRAY' );
  20
  21     is( scalar @$upcoming, 0, 'no issues yet' )
  22       or diag( Data::Dumper->Dump( [$upcoming], ['upcoming'] ) );
  23 }
  24
  25
  26 1;