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

(-)a/t/db_dependent/Acquisition/NewOrder.t (-2 / +6 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 7;
5
use Test::More tests => 8;
6
use C4::Acquisition;
6
use C4::Acquisition;
7
use C4::Biblio;
7
use C4::Biblio;
8
use C4::Bookseller;
8
use C4::Bookseller;
Lines 15-20 my $dbh = C4::Context->dbh; Link Here
15
$dbh->{AutoCommit} = 0;
15
$dbh->{AutoCommit} = 0;
16
$dbh->{RaiseError} = 1;
16
$dbh->{RaiseError} = 1;
17
17
18
C4::Context->_new_userenv('xxx');
19
C4::Context::set_userenv(42, 'ordercreator', '0042', 'Order', 'Creator', 'CPL',
20
    0, 'ordercreator@example.com');
21
18
my $booksellerid = C4::Bookseller::AddBookseller(
22
my $booksellerid = C4::Bookseller::AddBookseller(
19
    {
23
    {
20
        name => "my vendor",
24
        name => "my vendor",
Lines 84-86 my $ordernumber = $order->{ordernumber}; Link Here
84
$order = Koha::Acquisition::Order->fetch({ ordernumber => $ordernumber });
88
$order = Koha::Acquisition::Order->fetch({ ordernumber => $ordernumber });
85
is( $order->{quantityreceived}, 0, 'Koha::Acquisition::Order->insert set quantityreceivedto 0 if undef is given' );
89
is( $order->{quantityreceived}, 0, 'Koha::Acquisition::Order->insert set quantityreceivedto 0 if undef is given' );
86
is( $order->{entrydate}, output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }), 'Koha::Acquisition::Order->insert set entrydate to today' );
90
is( $order->{entrydate}, output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }), 'Koha::Acquisition::Order->insert set entrydate to today' );
87
- 
91
is( $order->{created_by}, 42, 'Koha::Acquisition::Order->insert set created_by to logged in user if not given' );

Return to bug 12395