t/db_dependent/api/v1/borrowers.t

   1 #!/usr/bin/env perl
   2
   3 use Modern::Perl;
   4
   5 use Test::More tests => 6;
   6 use Test::Mojo;
   7
   8 use C4::Context;
   9
  10 use Koha::Database;
  11 use Koha::Borrower;
  12
  13 my $dbh = C4::Context->dbh;
  14 $dbh->{AutoCommit} = 0;
  15 $dbh->{RaiseError} = 1;
  16
  17 my $t = Test::Mojo->new('Koha::REST::V1');
  18
  19 my $categorycode = Koha::Database->new()->schema()->resultset('Category')->first()->categorycode();
  20 my $branchcode = Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode();
  21
  22 my $borrower = Koha::Borrower->new;
  23 $borrower->categorycode( $categorycode );
  24 $borrower->branchcode( $branchcode );
  25 $borrower->surname("Test Surname");
  26 $borrower->store;
  27 my $borrowernumber = $borrower->borrowernumber;
  28
  29 $t->get_ok('/api/v1/borrowers')
  30   ->status_is(200);
  31
  32 $t->get_ok("/api/v1/borrowers/$borrowernumber")
  33   ->status_is(200)
  34   ->json_is('/borrowernumber' => $borrowernumber)
  35   ->json_is('/surname' => "Test Surname");
  36
  37 $dbh->rollback;