if (
    (
            !&test2($xCur, $yCur, $wall)
         && !&test3($xCur, $yCur, $wall)
         &&  &test5($xCur, $yCur, $wall)
         &&  &test6($xCur, $yCur, $wall)
         && !&test9($xCur, $yCur, $wall)
    )
    && (
            !&test1($xCur, $yCur, $wall)
         && !&test7($xCur, $yCur, $wall)
    )
    || (
             &test1($xCur, $yCur, $wall)
         &&  &test4($xCur, $yCur, $wall)
         &&  &test7($xCur, $yCur, $wall)
         && !&test8($xCur, $yCur, $wall)
    )
)

##</code><code>##

if (
    (
            !&test2($xCur, $yCur, $wall)
         && !&test3($xCur, $yCur, $wall)
         &&  &test5($xCur, $yCur, $wall)
         &&  &test6($xCur, $yCur, $wall)
         && !&test9($xCur, $yCur, $wall)
         && !&test1($xCur, $yCur, $wall)
         && !&test7($xCur, $yCur, $wall)
    )
    || (
             &test1($xCur, $yCur, $wall)
         &&  &test4($xCur, $yCur, $wall)
         &&  &test7($xCur, $yCur, $wall)
         && !&test8($xCur, $yCur, $wall)
    )
)

##</code><code>##

my %test1 = (
    2 => 0,
    3 => 0,
    5 => 1,
    6 => 1,
    9 => 0,
    1 => 0,
    7 => 0,
);

my %test2 = (
    1 => 0,
    4 => 0,
    7 => 1,
    8 => 0,
);

##</code><code>##

if(
    not(grep { check_coord($xCur, $yCur, $wall, $_) ne $test1{$_} } keys %test1)
    or not(grep { check_coord($xCur, $yCur, $wall, $_) ne $test2{$_} } keys %test2)
) {
}