t/lib/KohaTest/Suggestions.pm

   1 package KohaTest::Suggestions;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Suggestions;
  10 sub testing_class { 'C4::Suggestions' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw( SearchSuggestion
  16                       GetSuggestion
  17                       GetSuggestionFromBiblionumber
  18                       GetSuggestionByStatus
  19                       CountSuggestion
  20                       NewSuggestion
  21                       ModStatus
  22                       ConnectSuggestionAndBiblio
  23                       DelSuggestion
  24                 );
  25
  26     can_ok( $self->testing_class, @methods );
  27 }
  28
  29 1;
  30