Select Code to Download

use Test2::V0;

...
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';