use Modern::Perl;
-use Test::More tests => 53;
+use Test::More tests => 55;
use C4::Context;
use Koha::DateUtils;
use DateTime::Duration;
#Test DelBookseller
my $del = C4::Bookseller::DelBookseller($id_supplier1);
-#FIXME: DelBookSeller always returns undef (if it works or not)
-#is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " );
+is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " );
is( C4::Bookseller::GetBookSellerFromId($id_supplier1),
undef, "Supplier1 has been deleted - id_supplier1 doesnt exist anymore" );
deliverytime => 2,
};
-#FIXME : ModBookseller always returns undef, even if the id isn't given
-#or doesn't exist
my $modif1 = C4::Bookseller::ModBookseller();
is( $modif1, undef,
"ModBookseller returns undef if no params given - Nothing happened" );
$modif1 = C4::Bookseller::ModBookseller($sample_supplier2);
-#is( $modif1, 1, "ModBookseller modifies only the supplier2" );
+is( $modif1, 1, "ModBookseller modifies only the supplier2" );
is( scalar( C4::Bookseller::GetBookSeller('') ),
$count + 2, "Supplier2 has been modified - Nothing added" );