perltidy
This commit is contained in:
parent
bc73f9d420
commit
57540d97ea
@ -163,6 +163,7 @@ ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'd',
|
|||||||
or print STDERR Dumper($res);
|
or print STDERR Dumper($res);
|
||||||
ok( $res->{values}->[0]->{count} == 2, 'Found 2 sessions starting with "d"' );
|
ok( $res->{values}->[0]->{count} == 2, 'Found 2 sessions starting with "d"' );
|
||||||
count(5);
|
count(5);
|
||||||
|
|
||||||
# uid=dw*
|
# uid=dw*
|
||||||
$res = &client->jsonResponse( '/sfa/persistent',
|
$res = &client->jsonResponse( '/sfa/persistent',
|
||||||
'uid=dw*&groupBy=substr(uid,2)&U2FCheck=1&TOTPCheck=1&UBKCheck=1' );
|
'uid=dw*&groupBy=substr(uid,2)&U2FCheck=1&TOTPCheck=1&UBKCheck=1' );
|
||||||
@ -174,6 +175,7 @@ ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'dw',
|
|||||||
or print STDERR Dumper($res);
|
or print STDERR Dumper($res);
|
||||||
ok( $res->{values}->[0]->{count} == 1, 'Found 1 session starting with "dw"' );
|
ok( $res->{values}->[0]->{count} == 1, 'Found 1 session starting with "dw"' );
|
||||||
count(5);
|
count(5);
|
||||||
|
|
||||||
# uid=d* & UBK
|
# uid=d* & UBK
|
||||||
$res = &client->jsonResponse( '/sfa/persistent',
|
$res = &client->jsonResponse( '/sfa/persistent',
|
||||||
'uid=d*&groupBy=substr(uid,1)&U2FCheck=1&TOTPCheck=1&UBKCheck=2' );
|
'uid=d*&groupBy=substr(uid,1)&U2FCheck=1&TOTPCheck=1&UBKCheck=2' );
|
||||||
@ -183,8 +185,12 @@ ok( @{ $res->{values} } == 1, 'List 1 result' );
|
|||||||
ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'd',
|
ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'd',
|
||||||
'Result match "uid=d"' )
|
'Result match "uid=d"' )
|
||||||
or print STDERR Dumper($res);
|
or print STDERR Dumper($res);
|
||||||
ok( $res->{values}->[0]->{count} == 1, 'Found 1 session starting with "d" & UBK' );
|
ok(
|
||||||
|
$res->{values}->[0]->{count} == 1,
|
||||||
|
'Found 1 session starting with "d" & UBK'
|
||||||
|
);
|
||||||
count(5);
|
count(5);
|
||||||
|
|
||||||
# uid=dw* & UBK
|
# uid=dw* & UBK
|
||||||
$res = &client->jsonResponse( '/sfa/persistent',
|
$res = &client->jsonResponse( '/sfa/persistent',
|
||||||
'uid=dw*&groupBy=substr(uid,2)&U2FCheck=1&TOTPCheck=1&UBKCheck=2' );
|
'uid=dw*&groupBy=substr(uid,2)&U2FCheck=1&TOTPCheck=1&UBKCheck=2' );
|
||||||
@ -194,13 +200,18 @@ ok( @{ $res->{values} } == 1, 'List 1 result' );
|
|||||||
ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'dw',
|
ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'dw',
|
||||||
'Result match "uid=dw"' )
|
'Result match "uid=dw"' )
|
||||||
or print STDERR Dumper($res);
|
or print STDERR Dumper($res);
|
||||||
ok( $res->{values}->[0]->{count} == 1, 'Found 1 session starting with "dw" & UBK' );
|
ok(
|
||||||
|
$res->{values}->[0]->{count} == 1,
|
||||||
|
'Found 1 session starting with "dw" & UBK'
|
||||||
|
);
|
||||||
count(5);
|
count(5);
|
||||||
|
|
||||||
# uid=da* & UBK
|
# uid=da* & UBK
|
||||||
$res = &client->jsonResponse( '/sfa/persistent',
|
$res = &client->jsonResponse( '/sfa/persistent',
|
||||||
'uid=da*&groupBy=substr(uid,2)&U2FCheck=1&TOTPCheck=1&UBKCheck=2' );
|
'uid=da*&groupBy=substr(uid,2)&U2FCheck=1&TOTPCheck=1&UBKCheck=2' );
|
||||||
ok( $res->{result} == 1, 'Search "uid"=da* & UBK - Result code = 1' );
|
ok( $res->{result} == 1, 'Search "uid"=da* & UBK - Result code = 1' );
|
||||||
ok( $res->{count} == 0, 'Found 0 session with "da" & UBK' ) or print STDERR Dumper($res);
|
ok( $res->{count} == 0, 'Found 0 session with "da" & UBK' )
|
||||||
|
or print STDERR Dumper($res);
|
||||||
ok( @{ $res->{values} } == 0, 'List 0 result' );
|
ok( @{ $res->{values} } == 0, 'List 0 result' );
|
||||||
count(3);
|
count(3);
|
||||||
|
|
||||||
@ -219,9 +230,18 @@ ok( $res->{values}->[1]->{value} && $res->{values}->[1]->{value} eq 'r',
|
|||||||
ok( $res->{values}->[2]->{value} && $res->{values}->[2]->{value} eq 't',
|
ok( $res->{values}->[2]->{value} && $res->{values}->[2]->{value} eq 't',
|
||||||
'Result match "uid=t"' )
|
'Result match "uid=t"' )
|
||||||
or print STDERR Dumper($res);
|
or print STDERR Dumper($res);
|
||||||
ok( $res->{values}->[0]->{count} == 2, 'Found 2 sessions starting with "d" & U2F' );
|
ok(
|
||||||
ok( $res->{values}->[1]->{count} == 1, 'Found 1 session starting with "r" & U2F' );
|
$res->{values}->[0]->{count} == 2,
|
||||||
ok( $res->{values}->[2]->{count} == 1, 'Found 1 session starting with "t" & U2F' );
|
'Found 2 sessions starting with "d" & U2F'
|
||||||
|
);
|
||||||
|
ok(
|
||||||
|
$res->{values}->[1]->{count} == 1,
|
||||||
|
'Found 1 session starting with "r" & U2F'
|
||||||
|
);
|
||||||
|
ok(
|
||||||
|
$res->{values}->[2]->{count} == 1,
|
||||||
|
'Found 1 session starting with "t" & U2F'
|
||||||
|
);
|
||||||
count(9);
|
count(9);
|
||||||
|
|
||||||
## "Filtered by U2F & TOTP" query
|
## "Filtered by U2F & TOTP" query
|
||||||
@ -233,19 +253,22 @@ ok( @{ $res->{values} } == 1, 'List 1 result' );
|
|||||||
ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'd',
|
ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'd',
|
||||||
'Result match "uid=d"' )
|
'Result match "uid=d"' )
|
||||||
or print STDERR Dumper($res);
|
or print STDERR Dumper($res);
|
||||||
ok( $res->{values}->[0]->{count} == 2, 'Found 2 sessiond starting with "d" & U2F & TOTP' );
|
ok( $res->{values}->[0]->{count} == 2,
|
||||||
|
'Found 2 sessiond starting with "d" & U2F & TOTP' );
|
||||||
count(5);
|
count(5);
|
||||||
|
|
||||||
## "Filtered by U2F & TOTP & UBK" query
|
## "Filtered by U2F & TOTP & UBK" query
|
||||||
$res = &client->jsonResponse( '/sfa/persistent',
|
$res = &client->jsonResponse( '/sfa/persistent',
|
||||||
'uid=*&groupBy=substr(uid,0)&U2FCheck=2&TOTPCheck=2&UBKCheck=2' );
|
'uid=*&groupBy=substr(uid,0)&U2FCheck=2&TOTPCheck=2&UBKCheck=2' );
|
||||||
ok( $res->{result} == 1, 'Search "uid"=* & UBK & TOTP & UBK - Result code = 1' );
|
ok( $res->{result} == 1,
|
||||||
|
'Search "uid"=* & UBK & TOTP & UBK - Result code = 1' );
|
||||||
ok( $res->{count} == 1, 'Found 1 result' ) or print STDERR Dumper($res);
|
ok( $res->{count} == 1, 'Found 1 result' ) or print STDERR Dumper($res);
|
||||||
ok( @{ $res->{values} } == 1, 'List 1 result' );
|
ok( @{ $res->{values} } == 1, 'List 1 result' );
|
||||||
ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'd',
|
ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'd',
|
||||||
'Result match "uid=d"' )
|
'Result match "uid=d"' )
|
||||||
or print STDERR Dumper($res);
|
or print STDERR Dumper($res);
|
||||||
ok( $res->{values}->[0]->{count} == 1, 'Found 1 session starting with "d" & U2F & TOTP & UBK' );
|
ok( $res->{values}->[0]->{count} == 1,
|
||||||
|
'Found 1 session starting with "d" & U2F & TOTP & UBK' );
|
||||||
count(5);
|
count(5);
|
||||||
|
|
||||||
## "Filtered by U2F & UBK" query
|
## "Filtered by U2F & UBK" query
|
||||||
@ -260,8 +283,10 @@ ok( $res->{values}->[0]->{value} && $res->{values}->[0]->{value} eq 'd',
|
|||||||
ok( $res->{values}->[1]->{value} && $res->{values}->[1]->{value} eq 'r',
|
ok( $res->{values}->[1]->{value} && $res->{values}->[1]->{value} eq 'r',
|
||||||
'Result match "uid=r"' )
|
'Result match "uid=r"' )
|
||||||
or print STDERR Dumper($res);
|
or print STDERR Dumper($res);
|
||||||
ok( $res->{values}->[0]->{count} == 1, 'Found 1 session starting with "d" & U2F & UBK' );
|
ok( $res->{values}->[0]->{count} == 1,
|
||||||
ok( $res->{values}->[1]->{count} == 1, 'Found 1 session starting with "r" & U2F & UBK' );
|
'Found 1 session starting with "d" & U2F & UBK' );
|
||||||
|
ok( $res->{values}->[1]->{count} == 1,
|
||||||
|
'Found 1 session starting with "r" & U2F & UBK' );
|
||||||
count(7);
|
count(7);
|
||||||
|
|
||||||
## Delete 2F devices
|
## Delete 2F devices
|
||||||
@ -277,6 +302,7 @@ foreach ( 1 .. 5 ) {
|
|||||||
'Body is JSON and result==1' );
|
'Body is JSON and result==1' );
|
||||||
count(3);
|
count(3);
|
||||||
}
|
}
|
||||||
|
|
||||||
# Delete TOTP devices
|
# Delete TOTP devices
|
||||||
foreach ( 3 .. 4 ) {
|
foreach ( 3 .. 4 ) {
|
||||||
ok(
|
ok(
|
||||||
@ -289,6 +315,7 @@ foreach ( 3 .. 4 ) {
|
|||||||
'Body is JSON and result==1' );
|
'Body is JSON and result==1' );
|
||||||
count(3);
|
count(3);
|
||||||
}
|
}
|
||||||
|
|
||||||
# Delete UBK devices
|
# Delete UBK devices
|
||||||
foreach ( 2 .. 3 ) {
|
foreach ( 2 .. 3 ) {
|
||||||
ok(
|
ok(
|
||||||
@ -306,7 +333,8 @@ foreach ( 2 .. 3 ) {
|
|||||||
$res = &client->jsonResponse( '/sfa/persistent',
|
$res = &client->jsonResponse( '/sfa/persistent',
|
||||||
'groupBy=substr(uid,1)&U2FCheck=1&TOTPCheck=1&UBKCheck=1' );
|
'groupBy=substr(uid,1)&U2FCheck=1&TOTPCheck=1&UBKCheck=1' );
|
||||||
ok( $res->{result} == 1, 'Result code = 1' );
|
ok( $res->{result} == 1, 'Result code = 1' );
|
||||||
ok( $res->{count} == 0, 'Found 0 session with 2F device' ) or print STDERR Dumper($res);
|
ok( $res->{count} == 0, 'Found 0 session with 2F device' )
|
||||||
|
or print STDERR Dumper($res);
|
||||||
ok( @{ $res->{values} } == 0, 'List 0 result' );
|
ok( @{ $res->{values} } == 0, 'List 0 result' );
|
||||||
count(3);
|
count(3);
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user