use POSIX qw(strftime);
-use Test::More tests => 91;
+use Test::More tests => 92;
use Koha::Database;
BEGIN {
ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore");
# End of tests for DelOrder
+subtest 'ModOrder' => sub {
+ plan tests => 1;
+ ModOrder( { ordernumber => $order1->{ordernumber}, unitprice => 42 } );
+ my $order = GetOrder( $order1->{ordernumber} );
+ is( int($order->{unitprice}), 42, 'ModOrder should work even if biblionumber if not passed');
+};
+
# Budget reports
my $all_count = scalar GetBudgetsReport();
ok($all_count >= 1, "GetBudgetReport OK");