is(Foo->new(one => 1, THREE => 3)->one, 1, 'Accessor still works');
+$meta = Moose::Meta::Class->initialize('Spoon');
+
+$meta->superclasses('Moose::Object');
+
+Moose::Util::apply_all_roles($meta, 'Bar');
+
+my $spoon = Spoon->new(four => 4);
+
+is($spoon->four, 4, 'Role application ok');
+
done_testing;