use Test2::V0;

my $have = [qw(c a b)];

is $have, bag {item $_ for qw(a b c); end}, 'matches';
isnt $have, bag {item $_ for qw(a a b c); end}, 'missing dup';
isnt $have, bag {item $_ for qw(a b); end}, 'one to much';
isnt $have, bag {item $_ for qw(a b c d); end}, 'one missing';