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');
        dd $st.^name;
        do for ^$st.elems {
            given $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: *+*;

# dd $sum;

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