view release on metacpan or  search on metacpan

t/92_paths.t  view on Meta::CPAN

    }

    ok( $ok );

    my @lhs1 = @{$pair->[0]};
    my @rhs1 = @{$pair->[1]};
    my @lhs2 = @{$path[0]};
    my @rhs2 = @{$path[$#path]};

    ENDPOINTS: if( "@lhs1" ne "@lhs2" or "@rhs1" ne "@rhs2" ) {
        warn " pair (@lhs1)->(@rhs1) != path endpoints (@lhs2)->(@rhs2)\n";
        ok( 0 );

        our $fail ++;
        die "that's too many failures to bother continuing" if $fail > 15;

    } else {
        ok(1)
    }
}