|
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 |
- |
|
|