View | Details | Raw Unified | Return to bug 19928
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition/GetBasketAsCSV.t (-1 / +2 lines)
Lines 12-17 use Koha::Database; Link Here
12
use Koha::CsvProfile;
12
use Koha::CsvProfile;
13
13
14
use Koha::Acquisition::Orders;
14
use Koha::Acquisition::Orders;
15
use t::lib::Mocks;
15
16
16
my $schema = Koha::Database->new()->schema();
17
my $schema = Koha::Database->new()->schema();
17
$schema->storage->txn_begin();
18
$schema->storage->txn_begin();
Lines 70-75 is($basket_csv1, 'autor,title,quantity Link Here
70
', 'CSV should be generated with user profile');
71
', 'CSV should be generated with user profile');
71
72
72
# Use default template
73
# Use default template
74
t::lib::Mocks::mock_preference('delimiter', ',');
73
my $basket_csv2 = C4::Acquisition::GetBasketAsCSV($basketno, $query);
75
my $basket_csv2 = C4::Acquisition::GetBasketAsCSV($basketno, $query);
74
is($basket_csv2, 'Contract name,Order number,Entry date,ISBN,Author,Title,Publication year,Publisher,Collection title,Note for vendor,Quantity,RRP,Delivery place,Billing place
76
is($basket_csv2, 'Contract name,Order number,Entry date,ISBN,Author,Title,Publication year,Publisher,Collection title,Note for vendor,Quantity,RRP,Delivery place,Billing place
75
"",' . $order->ordernumber  . ',2016-01-02,,"King, Stephen","Test Record",,"","","",3,,"",""
77
"",' . $order->ordernumber  . ',2016-01-02,,"King, Stephen","Test Record",,"","","",3,,"",""
76
- 

Return to bug 19928