| Lines 2-8
          
      
      
        Link Here | 
        
          | 2 |  | 2 |  | 
        
          | 3 | use Modern::Perl; | 3 | use Modern::Perl; | 
        
          | 4 | use Test::MockModule; | 4 | use Test::MockModule; | 
          
            
              | 5 | use Test::More tests => 30; | 5 | use Test::More tests => 18; | 
        
          | 6 |  | 6 |  | 
        
          | 7 | use C4::Acquisition; | 7 | use C4::Acquisition; | 
        
          | 8 |  | 8 |  | 
  
    | Lines 29-63
          my $order1 = {
      
      
        Link Here | 
        
          | 29 |     basketno => 1 | 29 |     basketno => 1 | 
        
          | 30 | }; | 30 | }; | 
        
          | 31 | my $order2 = { | 31 | my $order2 = { | 
            
              | 32 |     basketno => 1, |  |  | 
            
              | 33 |     branch => 'B1' | 
            
              | 34 | }; | 
            
              | 35 | my $order3 = { | 
            
              | 36 |     basketno => 1, | 
            
              | 37 |     branch => 'B2' | 
            
              | 38 | }; | 
            
              | 39 | my $order4 = { | 
        
          | 40 |     basketno => 2 | 32 |     basketno => 2 | 
        
          | 41 | }; | 33 | }; | 
          
            
              | 42 | my $order5 = { | 34 | my $order3 = { | 
            
              | 43 |     basketno => 2, |  |  | 
            
              | 44 |     branch => 'B1' | 
            
              | 45 | }; | 
            
              | 46 | my $order6 = { | 
            
              | 47 |     basketno => 2, | 
            
              | 48 |     branch => 'B2' | 
            
              | 49 | }; | 
            
              | 50 | my $order7 = { | 
        
          | 51 |     basketno => 3 | 35 |     basketno => 3 | 
        
          | 52 | }; | 36 | }; | 
            
              | 53 | my $order8 = { |  |  | 
            
              | 54 |     basketno => 3, | 
            
              | 55 |     branch => 'B1' | 
            
              | 56 | }; | 
            
              | 57 | my $order9 = { | 
            
              | 58 |     basketno => 3, | 
            
              | 59 |     branch => 'B2' | 
            
              | 60 | }; | 
        
          | 61 |  | 37 |  | 
        
          | 62 | $userenv->{branch} = 'B1'; | 38 | $userenv->{branch} = 'B1'; | 
        
          | 63 |  | 39 |  | 
  
    | Lines 72-84
          ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive
      
      
        Link Here | 
        
          | 72 | ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); | 48 | ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); | 
        
          | 73 | ok( CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); | 49 | ok( CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); | 
        
          | 74 | ok( not CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); | 50 | ok( not CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); | 
            
              | 75 | ok( CanUserReceiveOrder($borrower, $order4, {acquisition => { order_receive => 1 }}) ); |  |  | 
            
              | 76 | ok( CanUserReceiveOrder($borrower, $order5, {acquisition => { order_receive => 1 }}) ); | 
            
              | 77 | ok( not CanUserReceiveOrder($borrower, $order6, {acquisition => { order_receive => 1 }}) ); | 
            
              | 78 | ok( not CanUserReceiveOrder($borrower, $order7, {acquisition => { order_receive => 1 }}) ); | 
            
              | 79 | ok( CanUserReceiveOrder($borrower, $order8, {acquisition => { order_receive => 1 }}) ); | 
            
              | 80 | ok( not CanUserReceiveOrder($borrower, $order9, {acquisition => { order_receive => 1 }}) ); | 
            
              | 81 |  | 
        
          | 82 |  | 51 |  | 
        
          | 83 | $userenv->{branch} = 'B2'; | 52 | $userenv->{branch} = 'B2'; | 
        
          | 84 |  | 53 |  | 
  
    | Lines 93-104
          ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive
      
      
        Link Here | 
        
          | 93 | ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); | 62 | ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); | 
        
          | 94 | ok( not CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); | 63 | ok( not CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); | 
        
          | 95 | ok( CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); | 64 | ok( CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); | 
            
              | 96 | ok( not CanUserReceiveOrder($borrower, $order4, {acquisition => { order_receive => 1 }}) ); |  |  | 
            
              | 97 | ok( not CanUserReceiveOrder($borrower, $order5, {acquisition => { order_receive => 1 }}) ); | 
            
              | 98 | ok( CanUserReceiveOrder($borrower, $order6, {acquisition => { order_receive => 1 }}) ); | 
            
              | 99 | ok( CanUserReceiveOrder($borrower, $order7, {acquisition => { order_receive => 1 }}) ); | 
            
              | 100 | ok( not CanUserReceiveOrder($borrower, $order8, {acquisition => { order_receive => 1 }}) ); | 
            
              | 101 | ok( CanUserReceiveOrder($borrower, $order9, {acquisition => { order_receive => 1 }}) ); | 
        
          | 102 |  | 65 |  | 
        
          | 103 | sub Mock_GetBasket { | 66 | sub Mock_GetBasket { | 
        
          | 104 |     my ($basketno) = @_; | 67 |     my ($basketno) = @_; | 
            
              | 105 | -  |  |  |