use Test::More tests => 100;

isa_ok my $o = Foo->new, 'Foo';

lives_ok { $o->foo(42) } 'can set foo';
is( $o->foo, 42, 'foo set' );

# 95 other tests 

lives_ok { $o->bar(42) } 'can set foo';
is( $o->bar, 42, 'foo set' );