environments/ppa-mbqj77/deployments/335
Xavier Guimard 7 years ago
parent 87065665b8
commit 6d96cd5531
  1. 27
      lemonldap-ng-portal/t/75-2F-Registers.t

@ -138,27 +138,20 @@ SKIP: {
ok( $res->[2]->[0] =~ /2fregistration\.(?:min\.)?js/,
'Found 2f registration js' );
ok(
$res->[2]->[0] =~
qr%<img src="/static/bootstrap/totp.png" alt="totp2F" title="totp2F" />%,
'Found totp.png'
) or print STDERR Dumper( $res->[2]->[0] );
ok(
$res->[2]->[0] =~
qr%<img src="/static/bootstrap/u2f.png" alt="u2F" title="u2F" />%,
'Found u2f.png'
) or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ qr%<a href="/2fregisters/u" class="nodecor">%,
ok( $res->[2]->[0] =~ qr%<img src="/static/bootstrap/totp.png".*?/>%,
'Found totp.png' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ qr%<img src="/static/bootstrap/u2f.png".*?/>%,
'Found u2f.png' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ qr%<a href="/2fregisters/u".*?>%,
'Found 2fregisters/u link' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ qr%<a href="/2fregisters/totp" class="nodecor">%,
ok( $res->[2]->[0] =~ qr%<a href="/2fregisters/totp".*?>%,
'Found 2fregisters/totp link' )
or print STDERR Dumper( $res->[2]->[0] );
ok(
$res->[2]->[0] =~
qr%<td class="align-middle" >TOTP</td><td class="align-middle">(\d{10})</td><td class="data-epoch">\d{10}</td>%,
"TOTP epoch $1 found"
) or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ qr%TOTP.*epoch.*(\d{10})%m, "TOTP epoch $1 found" )
or print STDERR Dumper( $res->[2]->[0] );
ok(
$res = $client->_post(

Loading…
Cancel
Save