| Lines 19-25
          use Modern::Perl;
      
      
        Link Here | 
        
          | 19 |  | 19 |  | 
        
          | 20 | use POSIX qw(strftime); | 20 | use POSIX qw(strftime); | 
        
          | 21 |  | 21 |  | 
          
            
              | 22 | use Test::More tests => 79; | 22 | use Test::More tests => 65; | 
        
          | 23 | use t::lib::Mocks; | 23 | use t::lib::Mocks; | 
        
          | 24 | use Koha::Database; | 24 | use Koha::Database; | 
        
          | 25 | use Koha::DateUtils qw(dt_from_string output_pref); | 25 | use Koha::DateUtils qw(dt_from_string output_pref); | 
  
    | Lines 292-298
          for ( 0 .. 5 ) {
      
      
        Link Here | 
        
          | 292 |     $order_content[$_]->{str}->{ordernumber} = $ordernumbers[$_]; | 292 |     $order_content[$_]->{str}->{ordernumber} = $ordernumbers[$_]; | 
        
          | 293 | } | 293 | } | 
        
          | 294 |  | 294 |  | 
          
            
              | 295 | DelOrder( $order_content[3]->{str}->{biblionumber}, $ordernumbers[3] ); | 295 | Koha::Acquisition::Orders->find($ordernumbers[3])->cancel; | 
        
          | 296 |  | 296 |  | 
        
          | 297 | my $invoiceid = AddInvoice( | 297 | my $invoiceid = AddInvoice( | 
        
          | 298 |     invoicenumber => 'invoice', | 298 |     invoicenumber => 'invoice', | 
  
    | Lines 527-566
          is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is give
      
      
        Link Here | 
        
          | 527 | $nonexistent_order = GetOrder( 424242424242 ); | 527 | $nonexistent_order = GetOrder( 424242424242 ); | 
        
          | 528 | is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' ); | 528 | is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' ); | 
        
          | 529 |  | 529 |  | 
            
              | 530 | # Tests for DelOrder |  |  | 
            
              | 531 | $order1 = GetOrder($ordernumbers[0]); | 
            
              | 532 | my $error = DelOrder($order1->{biblionumber}, $order1->{ordernumber}); | 
            
              | 533 | ok((not defined $error), "DelOrder does not fail"); | 
            
              | 534 | $order1 = GetOrder($order1->{ordernumber}); | 
            
              | 535 | ok((defined $order1->{datecancellationprinted}), "order is cancelled"); | 
            
              | 536 | ok((not defined $order1->{cancellationreason}), "order has no cancellation reason"); | 
            
              | 537 | ok((defined Koha::Biblios->find( $order1->{biblionumber} )), "biblio still exists"); | 
            
              | 538 |  | 
            
              | 539 | $order2 = GetOrder($ordernumbers[1]); | 
            
              | 540 | $error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1); | 
            
              | 541 | ok((not defined $error), "DelOrder does not fail"); | 
            
              | 542 | $order2 = GetOrder($order2->{ordernumber}); | 
            
              | 543 | ok((defined $order2->{datecancellationprinted}), "order is cancelled"); | 
            
              | 544 | ok((not defined $order2->{cancellationreason}), "order has no cancellation reason"); | 
            
              | 545 | ok((not defined Koha::Biblios->find( $order2->{biblionumber} )), "biblio does not exist anymore"); | 
            
              | 546 |  | 
            
              | 547 | my $order4 = GetOrder($ordernumbers[3]); | 
            
              | 548 | $error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar"); | 
            
              | 549 | ok((not defined $error), "DelOrder does not fail"); | 
            
              | 550 | $order4 = GetOrder($order4->{ordernumber}); | 
            
              | 551 | ok((defined $order4->{datecancellationprinted}), "order is cancelled"); | 
            
              | 552 | ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \"foobar\""); | 
            
              | 553 | ok((not defined Koha::Biblios->find( $order4->{biblionumber} )), "biblio does not exist anymore"); | 
            
              | 554 |  | 
            
              | 555 | my $order5 = GetOrder($ordernumbers[4]); | 
            
              | 556 | Koha::Item->new({ barcode => '0102030405', biblionumber => $order5->{biblionumber} })->store; | 
            
              | 557 | $error = DelOrder($order5->{biblionumber}, $order5->{ordernumber}, 1); | 
            
              | 558 | $order5 = GetOrder($order5->{ordernumber}); | 
            
              | 559 | ok((defined $order5->{datecancellationprinted}), "order is cancelled"); | 
            
              | 560 | ok((defined Koha::Biblios->find( $order5->{biblionumber} )), "biblio still exists"); | 
            
              | 561 |  | 
            
              | 562 | # End of tests for DelOrder | 
            
              | 563 |  | 
        
          | 564 | subtest 'ModOrder' => sub { | 530 | subtest 'ModOrder' => sub { | 
        
          | 565 |     plan tests => 1; | 531 |     plan tests => 1; | 
        
          | 566 |     ModOrder( { ordernumber => $order1->{ordernumber}, unitprice => 42 } ); | 532 |     ModOrder( { ordernumber => $order1->{ordernumber}, unitprice => 42 } ); | 
  
    | Lines 640-647
          sub run_flavoured_tests {
      
      
        Link Here | 
        
          | 640 |     $orders = GetHistory( isbn => '0136019706' ); | 606 |     $orders = GetHistory( isbn => '0136019706' ); | 
        
          | 641 |     is( scalar(@$orders), 1, "GetHistory searches correctly by ISBN" ); | 607 |     is( scalar(@$orders), 1, "GetHistory searches correctly by ISBN" ); | 
        
          | 642 |  | 608 |  | 
          
            
              | 643 |     my $order = GetOrder($ordernumber); | 609 |     Koha::Acquisition::Orders->find($ordernumber)->cancel; | 
            
              | 644 |     DelOrder($order->{biblionumber}, $order->{ordernumber}, 1); |  |  | 
        
          | 645 | } | 610 | } | 
        
          | 646 |  | 611 |  | 
        
          | 647 | # Do "flavoured" tests | 612 | # Do "flavoured" tests |