|
Lines 18-24
Link Here
|
| 18 |
|
18 |
|
| 19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
| 20 |
|
20 |
|
| 21 |
use Test::More tests => 11; |
21 |
use Test::More tests => 12; |
| 22 |
use Test::Warn; |
22 |
use Test::Warn; |
| 23 |
|
23 |
|
| 24 |
use t::lib::TestBuilder; |
24 |
use t::lib::TestBuilder; |
|
Lines 499-504
subtest 'nb_rows() tests' => sub {
Link Here
|
| 499 |
$schema->storage->txn_rollback; |
499 |
$schema->storage->txn_rollback; |
| 500 |
}; |
500 |
}; |
| 501 |
|
501 |
|
|
|
502 |
subtest 'Returning passwords tests' => sub { |
| 503 |
|
| 504 |
plan tests => 3; |
| 505 |
|
| 506 |
my $dbh = C4::Context->dbh; |
| 507 |
$schema->storage->txn_begin; |
| 508 |
|
| 509 |
my $query = q{ SELECT * FROM borrowers }; |
| 510 |
|
| 511 |
my ( $sth, $errors ) = execute_query( { sql => $query } ); |
| 512 |
|
| 513 |
is( defined($errors), 1, 'Query returns password field' ); |
| 514 |
|
| 515 |
$query = q{ SELECT * FROM z3950servers }; |
| 516 |
|
| 517 |
( $sth, $errors ) = execute_query( { sql => $query } ); |
| 518 |
|
| 519 |
is( defined($errors), 1, 'Query returns password field' ); |
| 520 |
|
| 521 |
$query = q{ SELECT password FROM deletedborrowers }; |
| 522 |
|
| 523 |
( $sth, $errors ) = execute_query( { sql => $query } ); |
| 524 |
|
| 525 |
is( defined($errors), 1, 'Query returns password field' ); |
| 526 |
|
| 527 |
$schema->storage->txn_rollback; |
| 528 |
}; |
| 529 |
|
| 502 |
sub trim { |
530 |
sub trim { |
| 503 |
my ($s) = @_; |
531 |
my ($s) = @_; |
| 504 |
$s =~ s/^\s*(.*?)\s*$/$1/s; |
532 |
$s =~ s/^\s*(.*?)\s*$/$1/s; |
| 505 |
- |
|
|