Lines 309-324
subtest "checkpw_shib tests" => sub {
Link Here
|
309 |
$ENV{'emailpro'} = 'me@myemail.com'; |
309 |
$ENV{'emailpro'} = 'me@myemail.com'; |
310 |
$ENV{branchcode} = $library->branchcode; # needed since T::D::C does no longer hides the FK constraint |
310 |
$ENV{branchcode} = $library->branchcode; # needed since T::D::C does no longer hides the FK constraint |
311 |
|
311 |
|
312 |
my $time_now = dt_from_string()->ymd . ' ' . dt_from_string()->hms; |
|
|
313 |
checkpw($shib_login); |
312 |
checkpw($shib_login); |
314 |
ok my $new_user_autocreated = $schema->resultset('Borrower')->search( { 'userid' => 'test43210' }, { rows => 1 } ), |
313 |
ok my $new_user_autocreated = $schema->resultset('Borrower')->search( { 'userid' => 'test43210' }, { rows => 1 } ), |
315 |
"new user found"; |
314 |
"new user found"; |
316 |
|
315 |
|
317 |
my $rec_autocreated = $new_user_autocreated->next; |
316 |
my $rec_autocreated = $new_user_autocreated->next; |
|
|
317 |
my $patrons_updated_on = $rec_autocreated->updated_on; |
318 |
$patrons_updated_on =~ s/:\d+$//; |
318 |
is_deeply( |
319 |
is_deeply( |
319 |
[ map { $rec_autocreated->$_ } qw/updated_on/ ], |
320 |
[$patrons_updated_on], |
320 |
[$time_now], |
321 |
[ dt_from_string()->strftime('%Y-%m-%d %H:%M') ], |
321 |
'updated_on correctly saved on newly created user' |
322 |
'updated_on correctly saved on newly created user, ignoring seconds' |
322 |
); |
323 |
); |
323 |
}; |
324 |
}; |
324 |
|
325 |
|
325 |
- |
|
|