Bug 2959 - Add a timeout parameter to the URL checker
[koha.git] / t / db_dependent / Suggestions.t
blob001dc245d405802370f816ebc6d616eeefe5a791
1 #!/usr/bin/perl
3 # This Koha test module is a stub!
4 # Add more tests here!!!
6 use strict;
7 use warnings;
8 use Data::Dumper;
10 use C4::Suggestions;
12 use Test::More tests =>6;
14 BEGIN {
15 use_ok('C4::Suggestions');
18 my ($suggestionid, $suggestion, $status);
19 ok($suggestionid= NewSuggestion( {title=>'Petit traité de philosohpie',author=>'Hubert de Chardassé',publishercode=>'Albin Michel'} ), "NewSuggestion OK");
20 ok($suggestion= GetSuggestion( $suggestionid), "GetSuggestion OK");
21 ok($status= ModSuggestion( {title=>'test Modif Simple', suggestionid=>$suggestionid} ), "ModSuggestion Simple OK");
22 ok($status= ModSuggestion( {STATUS=>'STALLED', suggestionid=>$suggestionid} ), "ModSuggestion Status OK");
23 ok(@{SearchSuggestion( {STATUS=>'STALLED'} )}>0, "SearchSuggestion Status OK");