A regression test

[Miroslav Silovic]

This is an addition to t/operators/hyper.t. It regression-checks for
the bug discussed on #perl6 (in a nutshell, hyper ops used to only
work on list literals, but not on array variables).



{ # regression test, ensure that hyper works on arrays
        my @r1;
        my @r2;
        my @e1 = (2, 4, 6);
        my @e2 = (2, 3, 4);
        my @a = (1, 2, 3);
        @r1 = @a >>+<< @a;
        @r2 = @a >>+<< 1;
        is([EMAIL PROTECTED], [EMAIL PROTECTED], "hyper op works on variables, 
too.");
        is([EMAIL PROTECTED], [EMAIL PROTECTED], "hyper op and correctly 
promotes scalars");
};