Commit 6b95a378 authored by Matt Caswell's avatar Matt Caswell
Browse files

Fix test_ordinals 



This used to work but somewhere along the line it broke and was failing to
detect duplicate ordinals - which was the whole point of the test!

Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
parent b7cb7646

test/recipes/01-test_ordinals.t

+1 −1
Original line number Original line Diff line number Diff line
@@ -89,7 +89,7 @@ sub testordinals 
        $newqual =~ s/!//g;

        $newqual =~ s/!//g;

        if ($cnt > $tokens[1]

        if ($cnt > $tokens[1]

                || ($cnt == $tokens[1] && ($qualifier ne $newqual

                || ($cnt == $tokens[1] && ($qualifier ne $newqual

                                           || $qualifier eq "FUNCTION"))) {

                                           || $qualifier eq ""))) {

            print STDERR "Invalid ordinal detected: ".$tokens[1]."\n";

            print STDERR "Invalid ordinal detected: ".$tokens[1]."\n";

            $ret = 0;

            $ret = 0;

            last;

            last;