use Test::More;

sub weight (&$$) {
    my ($c_test, $name, $weight) = @_;

    my $res = subtest $name, $c_test;

    ok($res,$name)  for 2.. $weight;
}


weight { is "a","a"  }
  "PASSING"  => 3;

weight { is "a","X" }
  "FAILING"  => 2;

done_testing;