| 
      
            Lines 17-23
          
      
      
        Link Here
      
     | 
  
        
          | 17 | 
           | 
          17 | 
           | 
        
        
          | 18 | 
          use Modern::Perl;  | 
          18 | 
          use Modern::Perl;  | 
        
        
          | 19 | 
           | 
          19 | 
           | 
        
          
            
              | 20 | 
              use Test::More tests => 5;  | 
              20 | 
              use Test::More tests => 7;  | 
            
        
          | 21 | 
           | 
          21 | 
           | 
        
        
          | 22 | 
          use Test::Mojo;  | 
          22 | 
          use Test::Mojo;  | 
        
        
          | 23 | 
           | 
          23 | 
           | 
        
  
    | 
      
            Lines 294-299
          subtest 'add_credit() tests' => sub {
      
      
        Link Here
      
     | 
  
        
          | 294 | 
              $schema->storage->txn_rollback;  | 
          294 | 
              $schema->storage->txn_rollback;  | 
        
        
          | 295 | 
          };  | 
          295 | 
          };  | 
        
        
          | 296 | 
           | 
          296 | 
           | 
        
            
               | 
               | 
              297 | 
              subtest 'get_credit() tests' => sub { | 
            
            
              | 298 | 
               | 
            
            
              | 299 | 
                  plan tests => 12;  | 
            
            
              | 300 | 
               | 
            
            
              | 301 | 
                  $schema->storage->txn_begin;  | 
            
            
              | 302 | 
               | 
            
            
              | 303 | 
                  my $patron = $builder->build_object(  | 
            
            
              | 304 | 
                      { | 
            
            
              | 305 | 
                          class => 'Koha::Patrons',  | 
            
            
              | 306 | 
                          value => { flags => 1 } | 
            
            
              | 307 | 
                      }  | 
            
            
              | 308 | 
                  );  | 
            
            
              | 309 | 
                  my $userid   = $patron->userid;  | 
            
            
              | 310 | 
                  my $password = 'thePassword123';  | 
            
            
              | 311 | 
                  $patron->set_password( { password => $password, skip_validation => 1 } ); | 
            
            
              | 312 | 
               | 
            
            
              | 313 | 
                  my $patron_id = $patron->id;  | 
            
            
              | 314 | 
                  my $credit    = $patron->account->add_credit(  | 
            
            
              | 315 | 
                      { | 
            
            
              | 316 | 
                          amount      => 100,  | 
            
            
              | 317 | 
                          description => "A description",  | 
            
            
              | 318 | 
                          type        => "NEW_CARD",  | 
            
            
              | 319 | 
                          interface   => 'test',  | 
            
            
              | 320 | 
                      }  | 
            
            
              | 321 | 
                  );  | 
            
            
              | 322 | 
                  my $credit_id = $credit->id;  | 
            
            
              | 323 | 
               | 
            
            
              | 324 | 
                  $t->get_ok("//$userid:$password@/api/v1/patrons/$patron_id/account/credits/$credit_id") | 
            
            
              | 325 | 
                      ->status_is(200)  | 
            
            
              | 326 | 
                      ->json_is( '/account_line_id' => $credit_id )  | 
            
            
              | 327 | 
                      ->json_is( '/patron_id'       => $patron_id );  | 
            
            
              | 328 | 
               | 
            
            
              | 329 | 
                  $credit->delete();  | 
            
            
              | 330 | 
               | 
            
            
              | 331 | 
                  $t->get_ok("//$userid:$password@/api/v1/patrons/$patron_id/account/credits/$credit_id") | 
            
            
              | 332 | 
                      ->status_is(404)  | 
            
            
              | 333 | 
                      ->json_is( '/error_code' => 'not_found' )  | 
            
            
              | 334 | 
                      ->json_is( '/error'      => 'Credit not found' );  | 
            
            
              | 335 | 
               | 
            
            
              | 336 | 
                  my $deleted_patron    = $builder->build_object( { class => 'Koha::Patrons' } ); | 
            
            
              | 337 | 
                  my $deleted_patron_id = $deleted_patron->id;  | 
            
            
              | 338 | 
                  $deleted_patron->delete();  | 
            
            
              | 339 | 
               | 
            
            
              | 340 | 
                  $t->get_ok("//$userid:$password@/api/v1/patrons/$deleted_patron_id/account/credits/$credit_id") | 
            
            
              | 341 | 
                      ->status_is(404)  | 
            
            
              | 342 | 
                      ->json_is( '/error_code' => 'not_found' )  | 
            
            
              | 343 | 
                      ->json_is( '/error'      => 'Patron not found' );  | 
            
            
              | 344 | 
               | 
            
            
              | 345 | 
                  $schema->storage->txn_rollback;  | 
            
            
              | 346 | 
              };  | 
            
            
              | 347 | 
               | 
            
        
          | 297 | 
          subtest 'list_credits() test' => sub { | 
          348 | 
          subtest 'list_credits() test' => sub { | 
        
        
          | 298 | 
              plan tests => 3;  | 
          349 | 
              plan tests => 3;  | 
        
        
          | 299 | 
           | 
          350 | 
           | 
        
  
    | 
      
            Lines 329-334
          subtest 'list_credits() test' => sub {
      
      
        Link Here
      
     | 
  
        
          | 329 | 
              $schema->storage->txn_rollback;  | 
          380 | 
              $schema->storage->txn_rollback;  | 
        
        
          | 330 | 
          };  | 
          381 | 
          };  | 
        
        
          | 331 | 
           | 
          382 | 
           | 
        
            
               | 
               | 
              383 | 
              subtest 'get_debit() tests' => sub { | 
            
            
              | 384 | 
               | 
            
            
              | 385 | 
                  plan tests => 12;  | 
            
            
              | 386 | 
               | 
            
            
              | 387 | 
                  $schema->storage->txn_begin;  | 
            
            
              | 388 | 
               | 
            
            
              | 389 | 
                  my $patron = $builder->build_object(  | 
            
            
              | 390 | 
                      { | 
            
            
              | 391 | 
                          class => 'Koha::Patrons',  | 
            
            
              | 392 | 
                          value => { flags => 1 } | 
            
            
              | 393 | 
                      }  | 
            
            
              | 394 | 
                  );  | 
            
            
              | 395 | 
                  my $userid   = $patron->userid;  | 
            
            
              | 396 | 
                  my $password = 'thePassword123';  | 
            
            
              | 397 | 
                  $patron->set_password( { password => $password, skip_validation => 1 } ); | 
            
            
              | 398 | 
               | 
            
            
              | 399 | 
                  my $patron_id = $patron->id;  | 
            
            
              | 400 | 
                  my $debit     = $patron->account->add_debit(  | 
            
            
              | 401 | 
                      { | 
            
            
              | 402 | 
                          amount      => 100,  | 
            
            
              | 403 | 
                          description => "A description",  | 
            
            
              | 404 | 
                          type        => "NEW_CARD",  | 
            
            
              | 405 | 
                          interface   => 'test',  | 
            
            
              | 406 | 
                      }  | 
            
            
              | 407 | 
                  );  | 
            
            
              | 408 | 
                  my $debit_id = $debit->id;  | 
            
            
              | 409 | 
               | 
            
            
              | 410 | 
                  $t->get_ok("//$userid:$password@/api/v1/patrons/$patron_id/account/debits/$debit_id") | 
            
            
              | 411 | 
                      ->status_is(200)  | 
            
            
              | 412 | 
                      ->json_is( '/account_line_id' => $debit_id )  | 
            
            
              | 413 | 
                      ->json_is( '/patron_id'       => $patron_id );  | 
            
            
              | 414 | 
               | 
            
            
              | 415 | 
                  $debit->delete();  | 
            
            
              | 416 | 
               | 
            
            
              | 417 | 
                  $t->get_ok("//$userid:$password@/api/v1/patrons/$patron_id/account/debits/$debit_id") | 
            
            
              | 418 | 
                      ->status_is(404)  | 
            
            
              | 419 | 
                      ->json_is( '/error_code' => 'not_found' )  | 
            
            
              | 420 | 
                      ->json_is( '/error'      => 'Debit not found' );  | 
            
            
              | 421 | 
               | 
            
            
              | 422 | 
                  my $deleted_patron    = $builder->build_object( { class => 'Koha::Patrons' } ); | 
            
            
              | 423 | 
                  my $deleted_patron_id = $deleted_patron->id;  | 
            
            
              | 424 | 
                  $deleted_patron->delete();  | 
            
            
              | 425 | 
               | 
            
            
              | 426 | 
                  $t->get_ok("//$userid:$password@/api/v1/patrons/$deleted_patron_id/account/debits/$debit_id") | 
            
            
              | 427 | 
                      ->status_is(404)  | 
            
            
              | 428 | 
                      ->json_is( '/error_code' => 'not_found' )  | 
            
            
              | 429 | 
                      ->json_is( '/error'      => 'Patron not found' );  | 
            
            
              | 430 | 
               | 
            
            
              | 431 | 
                  $schema->storage->txn_rollback;  | 
            
            
              | 432 | 
              };  | 
            
        
          | 332 | 
           | 
          433 | 
           | 
        
        
          | 333 | 
          subtest 'list_debits() test' => sub { | 
          434 | 
          subtest 'list_debits() test' => sub { | 
        
        
          | 334 | 
              plan tests => 3;  | 
          435 | 
              plan tests => 3;  | 
        
            
              | 335 | 
              -   | 
               | 
               |