t/db_dependent/Serials.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8 use YAML;
   9
  10 use C4::Serials;
  11 use C4::Debug;
  12 use Test::More tests => 4;
  13
  14 BEGIN {
  15     use_ok('C4::Serials');
  16 }
  17
  18 my $subscriptionid = 1;
  19 my $subscriptioninformation = GetSubscription( $subscriptionid );
  20 $debug && warn Dump($subscriptioninformation);
  21 my @subscriptions = GetSubscriptions( $$subscriptioninformation{bibliotitle} );
  22 isa_ok( \@subscriptions, 'ARRAY' );
  23 $debug && warn scalar(@subscriptions);
  24 @subscriptions = GetSubscriptions( undef, $$subscriptioninformation{issn} );
  25 isa_ok( \@subscriptions, 'ARRAY' );
  26 $debug && warn scalar(@subscriptions);
  27 @subscriptions = GetSubscriptions( undef,undef ,$$subscriptioninformation{bibnum} );
  28 isa_ok( \@subscriptions, 'ARRAY' );
  29 $debug && warn scalar(@subscriptions);