Adding some fields in GetSubscriptions
[koha.git] / 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);