Select Code to Download

# show that sorting has changed from 5.6.1 to 5.8.8
use strict;
...
diag( "  result pos: " . join( ",", map { $_->{pos} } @result ) );

1..1
ok 1
...
#   result val: -2,-1,-1,0,0,1,1
# expected pos: 0,1,2,3,4,5,6
#   result pos: 0,1,2,3,4,5,6

1..1
not ok 1
...
# expected pos: 0,1,2,3,4,5,6
#   result pos: 0,1,2,3,4,6,5
# Looks like you failed 1 test of 1.