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

(-)a/t/db_dependent/HoldsQueue/TransportCostOptimizations.t (-17 / +27 lines)
Lines 9-15 Link Here
9
9
10
use Modern::Perl;
10
use Modern::Perl;
11
11
12
use Test::More tests => 117;
12
use Test::More tests => 120;
13
use Test::NoWarnings;
14
use Test::Warn;
13
use Data::Dumper;
15
use Data::Dumper;
14
16
15
use C4::Context;
17
use C4::Context;
Lines 214-236 sub test_allocation { Link Here
214
216
215
    $schema->txn_rollback;
217
    $schema->txn_rollback;
216
}
218
}
217
219
warning_like(
218
test_allocation(
220
    sub {
219
    "trivial case",
221
        test_allocation(
220
    [],
222
            "trivial case",
221
    [],
223
            [],
222
    [],
224
            [],
223
    [],
225
            [],
224
    0
226
            [],
227
            0
228
        );
229
    },
230
    qr{UseTransportCostMatrix set to yes, but matrix not populated}
225
);
231
);
226
232
227
test_allocation(
233
warning_like(
228
    "unit case",
234
    sub {
229
    [ [0] ],
235
        test_allocation(
230
    [1],
236
            "unit case",
231
    [1],
237
            [ [0] ],
232
    [ [ 0, 0 ] ],
238
            [1],
233
    0
239
            [1],
240
            [ [ 0, 0 ] ],
241
            0
242
        );
243
    },
244
    qr{UseTransportCostMatrix set to yes, but matrix not populated}
234
);
245
);
235
246
236
test_allocation(
247
test_allocation(
237
- 

Return to bug 40377