use Modern::Perl;
use Test::More tests => 117;
use Test::More tests => 120;
use Test::NoWarnings;
use Test::Warn;
use Data::Dumper;
use C4::Context;
$schema->txn_rollback;
}
warning_like(
test_allocation(
sub {
"trivial case",
[],
0
);
},
qr{UseTransportCostMatrix set to yes, but matrix not populated}
"unit case",
[ [0] ],
[1],
[ [ 0, 0 ] ],
-