use Test::More 'no_plan';

{
	my $b = Test::Block->expecting(1);
	isa_ok my $o = Foo->new, 'Foo';
};

{
	my $b = Test::Block->expecting(2);
	lives_ok { $o->foo(42) } 'can set foo';
	is( $o->foo, 42, 'foo set' );
}

# 95 other tests

{
	my $b = Test::Block->expecting(2);
	lives_ok { $o->bar(42) } 'can set foo';
	is( $o->bar, 42, 'foo set' );
}