CPAN::Groonga

d|sub/ }, Any) {
        isnt $cmd, 'add',   'cmd not add correct';
        isnt $cmd, 'sub',   'cmd not sub correct';
    }

    multi cmd('diff', $cmd, $other) {
        isnt $cmd,   'add',   'cmd n

orrect';
        isnt $cmd,   'sub',   'cmd not sub correct';
        isnt $other, 'add',   'other not add correct';
        isnt $other, 'sub',   'other not sub correct';
        isnt $cmd,   $other,

], [@expected2[0..7]]);

    # hints and bitmask change and are twitchy so I'm just going to
    # check that they're there.
    isnt $have[8],  undef;
    isnt $have2[8], undef;

    done_testing;
}