t/lib/KohaTest/NewsChannels.pm

   1 package KohaTest::NewsChannels;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::NewsChannels;
  10 sub testing_class { 'C4::NewsChannels' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw( news_channels
  16                       news_channels_by_category
  17                       get_new_channel
  18                       del_channels
  19                       add_channel
  20                       update_channel
  21                       news_channels_categories
  22                       get_new_channel_category
  23                       del_channels_categories
  24                       add_channel_category
  25                       update_channel_category
  26                       add_opac_new
  27                       upd_opac_new
  28                       del_opac_new
  29                       get_opac_new
  30                       get_opac_news
  31                       GetNewsToDisplay
  32                       add_opac_electronic
  33                       upd_opac_electronic
  34                       del_opac_electronic
  35                       get_opac_electronic
  36                       get_opac_electronics
  37                 );
  38
  39     can_ok( $self->testing_class, @methods );
  40 }
  41
  42 1;
  43