Lines Matching refs:href
317 my $href;
318 foreach $href ( @{ $t->{RESPONSE} }) {
378 if ($href->{'HTTP-Protocol'} ne $1) {
379 diag(sprintf("\nproto failed: expected '%s', got '%s'", $href->{'HTTP-Protocol'}, $1));
382 if ($href->{'HTTP-Status'} ne $2) {
383 diag(sprintf("\nstatus failed: expected '%s', got '%s'", $href->{'HTTP-Status'}, $2));
391 if (defined $href->{'HTTP-Content'}) {
393 if ($href->{'HTTP-Content'} ne $resp_body) {
394 diag(sprintf("\nbody failed: expected '%s', got '%s'", $href->{'HTTP-Content'}, $resp_body));
399 if (defined $href->{'-HTTP-Content'}) {
406 foreach (keys %{ $href }) {
440 if ($href->{$_} =~ /^\/(.+)\/$/) {
444 $href->{$_}, $resp_hdr{$k}, $1));
447 } elsif ($href->{$_} ne $resp_hdr{$k}) {
450 $href->{$_}, $resp_hdr{$k}));