8802bbf5fe
Enhancing C4::SearchSuggestion And changing its API Changing C4::Suggestions API taking a hashref for NewSuggestion and ModSuggestion Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
24 lines
788 B
Perl
24 lines
788 B
Perl
#!/usr/bin/perl
|
|
#
|
|
# This Koha test module is a stub!
|
|
# Add more tests here!!!
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Data::Dumper;
|
|
|
|
use C4::Suggestions;
|
|
|
|
use Test::More tests =>6;
|
|
|
|
BEGIN {
|
|
use_ok('C4::Suggestions');
|
|
}
|
|
|
|
my ($suggestionid, $suggestion, $status);
|
|
ok($suggestionid= NewSuggestion( {title=>'Petit traité de philosohpie',author=>'Hubert de Chardassé',publishercode=>'Albin Michel'} ), "NewSuggestion OK");
|
|
ok($suggestion= GetSuggestion( $suggestionid), "GetSuggestion OK");
|
|
ok($status= ModSuggestion( {title=>'test Modif Simple', suggestionid=>$suggestionid} ), "ModSuggestion Simple OK");
|
|
ok($status= ModSuggestion( {STATUS=>'STALLED', suggestionid=>$suggestionid} ), "ModSuggestion Status OK");
|
|
ok(@{SearchSuggestion( {STATUS=>'STALLED'} )}>0, "SearchSuggestion Status OK");
|
|
|