44 lines
1.2 KiB
Perl
44 lines
1.2 KiB
Perl
package KohaTest::NewsChannels;
|
|
use base qw( KohaTest );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use C4::NewsChannels;
|
|
sub testing_class { 'C4::NewsChannels' };
|
|
|
|
|
|
sub methods : Test( 1 ) {
|
|
my $self = shift;
|
|
my @methods = qw( news_channels
|
|
news_channels_by_category
|
|
get_new_channel
|
|
del_channels
|
|
add_channel
|
|
update_channel
|
|
news_channels_categories
|
|
get_new_channel_category
|
|
del_channels_categories
|
|
add_channel_category
|
|
update_channel_category
|
|
add_opac_new
|
|
upd_opac_new
|
|
del_opac_new
|
|
get_opac_new
|
|
get_opac_news
|
|
GetNewsToDisplay
|
|
add_opac_electronic
|
|
upd_opac_electronic
|
|
del_opac_electronic
|
|
get_opac_electronic
|
|
get_opac_electronics
|
|
);
|
|
|
|
can_ok( $self->testing_class, @methods );
|
|
}
|
|
|
|
1;
|
|
|