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

(-)a/t/db_dependent/Circulation_transfers.t (-9 / +6 lines)
Lines 10-15 use Koha::DateUtils; Link Here
10
use DateTime::Duration;
10
use DateTime::Duration;
11
11
12
use Test::More tests => 19;
12
use Test::More tests => 19;
13
use Test::Deep;
13
14
14
BEGIN {
15
BEGIN {
15
    use_ok('C4::Circulation');
16
    use_ok('C4::Circulation');
Lines 140-152 is(CreateBranchTransferLimit(undef,$samplebranch2->{branchcode}),undef, Link Here
140
#is(CreateBranchTransferLimit(-1,-1,'CODE'),0,"With wrong CreateBranchTransferLimit returns 0 - No transfertlimit added");
141
#is(CreateBranchTransferLimit(-1,-1,'CODE'),0,"With wrong CreateBranchTransferLimit returns 0 - No transfertlimit added");
141
142
142
#Test GetTransfers
143
#Test GetTransfers
143
my $dt_today = dt_from_string( undef, 'sql', undef );
144
my $today = $dt_today->strftime("%Y-%m-%d %H:%M:%S");
145
146
my @transfers = GetTransfers($item_id1);
144
my @transfers = GetTransfers($item_id1);
147
is_deeply(
145
cmp_deeply(
148
    \@transfers,
146
    \@transfers,
149
    [ $today, $samplebranch1->{branchcode}, $samplebranch2->{branchcode} ],
147
    [ re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'), $samplebranch1->{branchcode}, $samplebranch2->{branchcode} ],
150
    "Transfers of the item1"
148
    "Transfers of the item1"
151
);    #NOTE: Only the first transfer is returned
149
);    #NOTE: Only the first transfer is returned
152
@transfers = GetTransfers;
150
@transfers = GetTransfers;
Lines 159-175 is_deeply( \@transfers, [], Link Here
159
#Test GetTransfersFromTo
157
#Test GetTransfersFromTo
160
my @transferfrom1to2 = GetTransfersFromTo( $samplebranch1->{branchcode},
158
my @transferfrom1to2 = GetTransfersFromTo( $samplebranch1->{branchcode},
161
    $samplebranch2->{branchcode} );
159
    $samplebranch2->{branchcode} );
162
is_deeply(
160
cmp_deeply(
163
    \@transferfrom1to2,
161
    \@transferfrom1to2,
164
    [
162
    [
165
        {
163
        {
166
            itemnumber => $item_id1,
164
            itemnumber => $item_id1,
167
            datesent   => $today,
165
            datesent   => re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'),
168
            frombranch => $samplebranch1->{branchcode}
166
            frombranch => $samplebranch1->{branchcode}
169
        },
167
        },
170
        {
168
        {
171
            itemnumber => $item_id2,
169
            itemnumber => $item_id2,
172
            datesent   => $today,
170
            datesent   => re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'),
173
            frombranch => $samplebranch1->{branchcode}
171
            frombranch => $samplebranch1->{branchcode}
174
        }
172
        }
175
    ],
173
    ],
176
- 

Return to bug 11470