gistfile1.txt

multi sub is(Iterable $got, Iterable $expected, $desc) is export {
    my @got;
    my @expected;
    my $test = True;
    loop {
        my $a = $got.get;
        my $b = $expected.get;
        if ($a ~~ EMPTY) || ($b ~~ EMPTY) {
            unless ($a ~~ EMPTY) && ($b ~~ EMPTY) {
                $test = False;
                @got.push($a) if $a !~~ EMPTY;
                @expected.push($b) if $b !~~ EMPTY;
            }
            last;
        }
        @got.push: $a;
        @expected.push: $b;
    }
    
    proclaim(?$test, $desc);
    if !$test {
        my $got_perl      = try { @got.perl };
        my $expected_perl = try { @expected.perl };
        if $got_perl.defined && $expected_perl.defined {
            diag "     got: $got_perl";
            diag "expected: $expected_perl";
        }
    }
}