use Test::More;
use Test::Contract::Unit qw(contract_is);
use My::Check;

my $c = contract {
    my_check $proper_foo, $bar;
    my_check $good_foo, $bar;
    my_check $broken_foo, $bar;
    my_check $good_foo, $wrong_bar;
};

is_contract $c, "1100", "my_check works as expected";
done_testing;