diff --git a/lemonldap-ng-portal/t/68-Impersonation.t b/lemonldap-ng-portal/t/68-Impersonation.t index 5614e1e06..2f8947c5a 100644 --- a/lemonldap-ng-portal/t/68-Impersonation.t +++ b/lemonldap-ng-portal/t/68-Impersonation.t @@ -280,6 +280,20 @@ ok( $res->[2]->[0] =~ m%rtyler/dwho%, or explain( $res->[2]->[0], 'Found rtyler/dwo' ); count(16); +my @attributes = map /(.+)?<\/td>/g, $res->[2]->[0]; +ok( scalar @attributes == 58, 'Found 58 attributes' ) + or print STDERR "Missing attributes -> " . scalar @attributes; +ok( $attributes[0] eq '_auth', '_auth' ) or print STDERR Dumper( \@attributes ); +ok( $attributes[1] eq 'Demo', 'Demo' ) or print STDERR Dumper( \@attributes ); +ok( $attributes[26] eq 'uid', 'uid' ) or print STDERR Dumper( \@attributes ); +ok( $attributes[28] eq 'real__auth', 'real__auth' ) + or print STDERR Dumper( \@attributes ); +ok( $attributes[56] eq 'real_uid', 'real_uid' ) + or print STDERR Dumper( \@attributes ); +ok( $attributes[57] eq 'rtyler', 'rtyler' ) + or print STDERR Dumper( \@attributes ); +count(7); + $client->logout($id); clean_sessions();