# test A
{
    my $object = Some::Package::Name->new;
    is $object->some_method_name($y), 1, "some_method_name() with arg $y ok";
    ...
}

# test B
{
    my $object = Some::Package::Name->new;
    is $object->some_method_name($z), 2, "some_method_name() with arg $z ok";
    ...
}

...