Lines 2-8
Link Here
|
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
|
4 |
|
5 |
use Test::More tests => 53; |
5 |
use Test::More tests => 54; |
6 |
use C4::Context; |
6 |
use C4::Context; |
7 |
use Koha::DateUtils; |
7 |
use Koha::DateUtils; |
8 |
use DateTime::Duration; |
8 |
use DateTime::Duration; |
Lines 104-111
is( scalar( C4::Bookseller::GetBookSeller('') ),
Link Here
|
104 |
|
104 |
|
105 |
#Test DelBookseller |
105 |
#Test DelBookseller |
106 |
my $del = C4::Bookseller::DelBookseller($id_supplier1); |
106 |
my $del = C4::Bookseller::DelBookseller($id_supplier1); |
107 |
#FIXME: DelBookSeller always returns undef (if it works or not) |
107 |
is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " ); |
108 |
#is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " ); |
|
|
109 |
is( C4::Bookseller::GetBookSellerFromId($id_supplier1), |
108 |
is( C4::Bookseller::GetBookSellerFromId($id_supplier1), |
110 |
undef, "Supplier1 has been deleted - id_supplier1 doesnt exist anymore" ); |
109 |
undef, "Supplier1 has been deleted - id_supplier1 doesnt exist anymore" ); |
111 |
|
110 |
|
112 |
- |
|
|