Lines 309-314
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; |
312 |
checkpw($shib_login); |
313 |
checkpw($shib_login); |
313 |
ok my $new_user_autocreated = $schema->resultset('Borrower')->search( { 'userid' => 'test43210' }, { rows => 1 } ), |
314 |
ok my $new_user_autocreated = $schema->resultset('Borrower')->search( { 'userid' => 'test43210' }, { rows => 1 } ), |
314 |
"new user found"; |
315 |
"new user found"; |
Lines 316-322
subtest "checkpw_shib tests" => sub {
Link Here
|
316 |
my $rec_autocreated = $new_user_autocreated->next; |
317 |
my $rec_autocreated = $new_user_autocreated->next; |
317 |
is_deeply( |
318 |
is_deeply( |
318 |
[ map { $rec_autocreated->$_ } qw/updated_on/ ], |
319 |
[ map { $rec_autocreated->$_ } qw/updated_on/ ], |
319 |
[ dt_from_string()->ymd . ' ' . dt_from_string()->hms ], |
320 |
[$time_now], |
320 |
'updated_on correctly saved on newly created user' |
321 |
'updated_on correctly saved on newly created user' |
321 |
); |
322 |
); |
322 |
}; |
323 |
}; |
323 |
- |
|
|