p6.p6

use Test;
use MONKEY-GUTS;

sub is-deeply-junction (
    Junction $got, Junction $expected, Str:D $desc
) is export {
    sub junction-guts (Junction $j) {
        my $st = nqp::getattr(nqp::decont($j), Junction, '$!storage');
        do for ^nqp::elems(nqp::decont($st)) {
            given nqp::atpos(nqp::decont($st), $_) {
                when Junction { junction-guts($_).Slip }
                $_
            }
        }
    }

    is-deeply junction-guts($got), junction-guts($expected), $desc;
}

constant @a = (2, 3|4, 5, 6|7);
my $sum = @a.reduce: *+*;

is-deeply-junction $sum, any(any(16, 17), any(17, 18)), 'tis same';