# New Ticket Created by Timothy Smith
# Please include the string: [perl #107306]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=107306 >
Here is a test case where nom (and b, too) fails to parse unless the
words are sorted longest-first. Niecza handles this OK.
my @words = <north northeast>;
print "unsorted (fails): ";
say 'northeast' ~~ / ^ <{join '|', @words }> $ / ?? "parsed $/" !! 'no parse';
print "sorted (passes): ";
say 'northeast' ~~ / ^ <{join '|', @words.sort({ $^b.chars cmp
$^a.chars }) }> $ / ?? "parsed $/" !! 'no parse';
