|
|
|
@ -321,10 +321,12 @@ ok( $res->[2]->[0] =~ m%<td scope="row">rtyler/dwho</td>%, 'Found rtyler/dwo' ) |
|
|
|
|
or explain( $res->[2]->[0], 'Found rtyler/dwo' ); |
|
|
|
|
ok( $res->[2]->[0] =~ m%<td scope="row">_session_id</td>%, 'Found _session_id' ) |
|
|
|
|
or explain( $res->[2]->[0], 'Found _session_id' ); |
|
|
|
|
count(17); |
|
|
|
|
ok( $res->[2]->[0] =~ m%<td scope="row">_session_kind</td>%, 'Found _session_id' ) |
|
|
|
|
or explain( $res->[2]->[0], 'Found _session_kind' ); |
|
|
|
|
count(18); |
|
|
|
|
|
|
|
|
|
my %attributes = map /<td scope="row">(.+)?<\/td>/g, $res->[2]->[0]; |
|
|
|
|
ok( keys %attributes == 34, 'Found 34 attributes' ) |
|
|
|
|
ok( keys %attributes == 35, 'Found 35 attributes' ) |
|
|
|
|
or print STDERR "Missing attributes -> " . scalar %attributes; |
|
|
|
|
ok( $attributes{'_auth'} eq 'Demo', '_auth' ) |
|
|
|
|
or print STDERR Dumper( \%attributes ); |
|
|
|
|