shift test

shift.nqp

#!/usr/bin/env nqp

sub shifter(int $x, int $y) {
    nqp::abs_i(nqp::bitshiftl_i($x, $y));
}

my int $i := 0;
while ($i++ < 1_000_000) {
    my $x := shifter(10,3);
    if (shifter(10,3) != 80) {
        nqp::die("OHNO $i $x");
    }
}