lives_and_tests_ok (
    sub { $o->answer },
    sub { is $a, 42, $b },
    "answer is 42"
);