sub test_header2()

in t/modules/headers.t [296:333]

• 32 lines of code
• 6 McCabe index (conditional complexity)

sub test_header2 {
    my @test = @_;
    my $h = HTTP::Headers->new;
    
    print "\n\n\n";
    for (my $i = 0; $i < scalar @{$test[0][1]}; $i += 2) {
        print "Header sent n°" . $i/2 . ":\n";
        print "  header: " . $test[0][1][$i] . "\n";
        print "  value:  " . $test[0][1][$i+1] . "\n";
        $h->header($test[0][1][$i] => $test[0][1][$i+1]);
    }
    
    open (HT, ">$htaccess");
    print HT $test[0][0];
    close(HT);

    ## 
    my $r = HTTP::Request->new('GET', "http://$hostport/modules/headers/htaccess/", $h);
    my $res = $ua->request($r);
    ok t_cmp($res->code, 200, "Checking return code is '200'");
    
    my $isok = 1;
    for (my $i = 0; $i < scalar @{$test[0][2]}; $i += 2) {
        print "\n";
        print "Header received n°" . $i/2 . ":\n";
        print "  header:   " . $test[0][2][$i] . "\n";
        print "  expected: " . $test[0][2][$i+1] . "\n";
        if ($res->header($test[0][2][$i])) {
            print "  received: " . $res->header($test[0][2][$i]) . "\n";
        } else {
            print "  received: <undefined>\n";
        }
        $isok = $isok && $res->header($test[0][2][$i]) && $test[0][2][$i+1] eq $res->header($test[0][2][$i]);
    }
    print "\nResponse received is:\n" . $res->as_string;

    ok $isok;
}