sub check()

in t/modules/authz_core.t [22:40]

• 18 lines of code
• 3 McCabe index (conditional complexity)

sub check
{
    my $rc = shift;
    my $path = shift;

    my @args;
    foreach my $e (@_) {
        if ($e =~ /user/) {
            push @args, username => $e, password => $e;
        }
        else {
            push @args, "X-Allowed$e" => 'yes';
        }
    }
    my $res = GET "/authz_core/$path", @args;
    my $got = $res->code;
    print "# got $got, expected $rc [$text: $path @_]\n";
    ok($got == $rc);
}