| 
      
            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 | 
              -   | 
               | 
               |